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LIBRES PROPOS 



moins qu'il ne s'ogisse de I'opparition d un 
GSplus [deja !), on bradera les machines en 
stock. Ne jetons pas la pierre aux fabri- 
canls : c'esl devenu une habitude. C'est lo 
loi du marche. Je crains pourtant que, petit 
a petit, les consommateurs avertis n'en am- 
vent d bouder systematiquement les nou- 
veaux produits. 



Avez-vous troque votre APPLE // contre un CS ? ""'V* 



J'espere que, mieux informe que Tremplin 
Micro, vous ovez pu beneficier de lo der- 
niere oftre d'Apple Computer France el 
abandonne votre vieil Apple // (-1- ou ej 
contre un GS tout neuf. Rassurez-vous, rien 
n'est perdu : vous ovez jusqu'au 16 juin (c'est 
un mardi... allez savoir pourquoi on a choisi 
cette date plulot qu une outre) pour vous 
offrir un 65C816. II vous en coGtera 6523 F 
TTC si vous choisissez Iq configuration TGS 
(unite centrale, clavier, 512 K et souris) , 

Vous aurez au prealable remis votre on- 
cienne unite centrale a votre revendeur qui, 
bien que cette condition figure dans l offre 
de reprise, n'en oura probablement pas 
verifie le bon foncfionnement. Vous aurez 
aussi conserve vos cartes et peripheriques, 
mais en sachant que lo compatibilite ovec le 
GS ne sero pas forcernent exempte de 
problemes. 

Voire revendeur possede une liste des pro- 
duits reellement compatibles, lis sonl nom- 
breux et la pluport de vos andennes cartes 
devraient vous autoriser a utiliser vos anti- 
ques peripheriques sur le GS (I'imprimonfe 
DMP Apple fonctionne normalement avec sa 
carle parallele dans le slat 1 ). 



OUIOUHONOUCS? 

Si vous disposez de la somme indiquee plus 
haul (et si vous acceptez de "Iravoiller" avec 
votre moniteur monochrome), n'hesitez 
pas : chongez voire Apple, surlout s'il s'agit 
d'un Europlus. Vos programmes personnels 
y gagneront en ropidite d'execution et vous 
aurez le plaisir de disposer d un processeur 
actuel, puissant, dont les possibility sont 
impressionncntes. 

Quonl a la machine, il n'est pas necessaire 
de revenir sur ce qui en o ddjo ete dit ici : 
c'esl une excellente becane digne de la 
Pomme qu'elle affiche. Peut-etre est-il dom- 
mage que les bouleversements survenus 
chez Apple aient quelque peu retarde sa 
mise au point et stoppe le dynamisme des 
developpeurs, tres occupes par ailleurs. II 
convienl de ne jomais oublier que, dans le 
pire des cas, un GS se comporte encore 
mieux (beaucoup mieux) que ses illustres 
predecesseurs. Pour obtenir, sur un Ap- 
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pie //, les resultafs notes sur un GS il lou- 
drail acluellement inveslir, en cartes addi- 
tionnelles (et je ne parle pos de I'accelera- 
teur !}, une somme au moins equivalente a 
celle qui est demondee pour echanger 
I'ancien materiel contre le nouveau. 

Lo tentatton du compatible 

D' accord, il est vrai que pour le meme prix 
on peut s'offrir un compatible PC bas de 
gamme, mais en sochant que. pos plus lard 
que demain, ce standard sera probablement 
renie par IBM. 

Reste que I'Applesoft n'arrive pos d la che- 
ville du Bask moyen disponible sur compati- 
ble. On sail qu'un Basic permettanl d'acce- 
der fociiemenl aux outils est en gestation 
pour le GS, mais on (ON, c'est Apple) ne le 
dit pas, ce qui constitue assuremenf une 
grave erreur : le public a besoin d'informa- 
tians sur les materiels qu'il achete, C est son 
droit. Et c'est un devoir, pour les fobricants, 
d'acceder a ce legitime d^sir. Ceci etanf, 
Tremplin Micro vous conseilie d'apprendre 
a programmer en C... et vous y aidero, Mais 
;a ferait toujours plaisir d'apprendre offi- 
ciellement que, dans n mois, un Basic puis- 
sant sera a la disposition des heureux (le 
sont-ils ?) possesseurs d'un GS. 



Et les prix? 

Lo, c'est une autre histoire- On peul meme 
affirmer que c'esl le defaut de la cuirasse. 
C'est la que le bat blesse. II blesse surtout 
les ones (j'en fais bien sur partie) qui, perio- 
diquement. se font avoir en essuyant les 
platres- Jusqu'a mointenant, cote GS, rien a 
dire, Du moins quand on o pu beneficier de 
la remise de Noel du club Apple... parce que 
chez les aulres, je veux dire les gogos qui 
ont paye leur GS au prix Ion. (arete 
s'incruste oux amygdales ou 6 lo luetle non 
sans provoquer les reactions que I'on 
devine... et que Ton comprend. 
Chacun est convaincu que, apres la campa- 
gne de reprise des Apple defraichis, le prix 
du GS baissera... du montant de ia reprise. 
C^q se possera en juillet ou en octobre. £a 
commencera bien sur par une offre destinee 
aux seuls enseignants (oh ! la belle injus- 
tice I).., puis, la baisse du dollar aidont, a 



Ayant beneficie — au contraire de ( Apple 
He — dun important effort promolionnel, 
I'Apple He est une machine tres repandue. 
On laffectionnait beaucoup chez Apple : 
c'est un produit rerrne (mais e'etait sans 
compter sur llrnagination des bidouilleurs 
de genie), bien con;u pour transformer I'uti* 
lisateur en mouseman impenitent, con- 
damne a passer d'un logiciel d fenetres a un 
autre logiciel 6 fenetres... bref (in pret pour 
plonger dans I'univers cheri d'Apple : le 
macworld. Foin des programmers ama- 
teurs ! Vive LE LOGICIEL UNIVERSEl. pen- 
sant a votre place. Apple apprend 
I'Homme ? non : I'Homme devient I'esclave 
de la machine. Horrible destin ! Mais on en 
revienl. Le Mac s'ouvre sur I'exterieur, Le 
GS n'en finit plus de compter ses slots et IBM 
— qui se moque completement des oma- 
teurs — n'a pas neglige ce detail irnportanl : 
un ordinateur dit personnel ne doit pas etre 
une machine fermee. Mais revenons au Ik. 
La derniere version est assurement interes- 
sonte, mais pour combien de temps ? Qui 
ignore encore que les jours du 65CQ2 sont 
comples ? Ou I'Apple Ik nous presentera 
sa version TURBO ou il sera transforme, ici 
et 16. en Minitel intelligent, 

Tremplin Micro 

Revue de programmes, Tremplin Micro ne 
madifiera pas sa ligne de conduiie. On connalt, 
dans le domaine de la chanson, par exemple, 
quelques grondes vedettes. Nous nous conlen- 
lons en general de les ecouier, et parfois de sif- 
lloter les refrains de leurs pnncipoux succes. 
Mois il arrive aussi que certains d'entre nous se 
mettent a chanter, a la fin d'un repas... ou 
comme cela. pour le plaisir, en se rasant ou en 
pedalant. Pour I inforrnatique, c'est la meme 
chose, les programmers amateurs existent et 
j'ai le plaisir d'etre ires souvent en rapport avec 
eux. Certains ne desirent que s amuser a ali- 
gner des instructions, heureux ensuite de con- 
templer le deroulement de leur petite routine, 
D'outres vonl plus loin et il leur arrive meme de 
passer dans I'autre camp, celui des gens de 
metier. Les uns et les outres ont en commun le 
d^sir d'approfondir, de f aire Iravoiller leurs 
neurones... avec ou sans souris, avec ou sans 
lo conviviality d loquelle je prefererais, 
aujourd'hui, non seulement chez Apple, mais 
chez lous les fabneants, la COMMUNICATION, 

GuyHACHETTE. 
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Voulez-vous jouer avec les heures et les fuseaux horaires ? Si la longueur du programme 
(cent pour cent en Basic Applesoft) d'Yvan HUE ne vous decourage pas, mettez-vous dabord 
au travail, puis etonnez vos parents et amis par votre "Science" ! 

Vous constoterez qu'il y a en fait quatre programmes tournant autour de la question. Sans 
doute aurait-on pu les separer en ccnservant leur partie commune. Libre a vous de modi- 
fier, comme vous f'entendrez, le long programme d'Yvan HUE. 

Notez que, dans I'etaf actuel d'HEURES, une carte 80 colonnes est indispensable. Nous vous 
conseillons par ailleurs ProDOS, beaucoup plus rapide que le DOS 3.3 lors du chargement. 



110 DATA "ABIDJAN" . , "ACORES" .-2 
."ADELAIDE 11 .?. "ALGER" , . "ANG 
OLA" .1 /'BUENOS AIRES" , -4 , "CA 
LCUTTA" ,6 ■ "DELHI 1 ,5 . " DENVER" 
,-7,"ILES MARQUISES" ,-10, "LE 
CAIRE" ,2 ."LENINGRAD" ,2, U LIM 

A" , -6 , " LONDRES" , , "MEXI CO" , - 

i 

315 DATA "MOSCOU" , 2 1 "NEW YORK" , - 
5, "NOME" ,-11, "NOUMEA" ,11 ,"N0 
UVELLE ORLEANS" , -6 , "NOVOSI BI 
R3K" ,6,"PEKIN" ,8, "PERTH" ,8," 
POINTE EST DE SI BER1 E" , 1 2 , " P 
RAGUE" ,1 REYKJAVIK" ,-1 ,"RI0 
DE JANEIRO™ ,-3 

120 DATA "SAIGON ( HQ-CHI -MINH-VI 
LLE)" ,7, "SAN FRANCISCO" ,-8," 
STOKHQUT" ,1 , " SVERDLOVSK" ,4," 
SYDNEY" ,10, "TAHITI" .-10, "TAN 
ANAR I VE " , 3 , " T EH E RAN " ,3 , "TERR 
E-NEUVE" ,-4,"T0K10" ,?,"VLAD1 
VOSTOK" , 9, "VOLGOGRAD" ,3, "WEL 
LIN6T0N" ,12 

125 PRINT CHR* C4);"PR£3 1 ': PRIN 
T 

130 CLEAR ! HOME : VTAB 6: POKE 
34,36: PRINT "MENU" 

135 PRINT : PRINT : HTAB 10: PRI 
NT "1 = Horaire d' at terr i ssa 
Qe" : PRINT : HTAB 10: PRINT 



2333 



0967 



2551 
7091 
DAFE 



140 



145 



3 50 

155 
160 
170 

175 
180 

185 



"2 = Calcul 
point dont 
1 ong, i tude " 
PRINT : HTAB 
L'heure dun 
inclus dans 



tie 1 'heure en un 
/ous indiquez la 



10: PRINT "3 = 
lieu du tabl eau 
le loaiciel" 



195 



PRINT : HTAB 10: PRINT "4 = 
Longueur d'un parallel? et 1 
argeur dun fuseau en Kilome 
tres" 

PRINT : HTAB 1Q: PRINT "5 = 
Term i ner" 

B% = "5" : GOSUB 975 

D S = : pi = 3.14159265 

C = VAL (CS): ON C GOTO 175 

,1020,1335.1240,555 

HOME 

HTAB 29: PRINT "HORAIRE D'AT 
TERRI SSAGE" 

VTAB 4: PRINT "So it un avion 

qui d£colle d'un aerodrome 
situ$ sur le me>idien de Gre 
enwich a": PRINT : PRINT "un 
e latitude que uous choisire 
z," 

VTAB 9t PRINT "Nous allons c 
alculer a quelle heure il se 
posera sur le terrain d'arr 
iu£e selon" 

(suito 



A340 



CF60 



7369 

FC3B 

273E 
CA21 

ABCE 
2F97 

615C 



8F45 



F354 
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HEURES 



205 
210 

220 

225 

230 

235 
240 
245 

250 

255 
260 
265 

270 
275 
280 
285 

290 

295 
300 
305 
310 



PRINT : PRINT "la direction 
de eel u i -c i . " 

UTAB 34; PRINT "Les calculs 
seront bases sur les heures 
sol aires en raison de la d i u 
ers i t£ des" 

PRINT : PRINT "heures legale 
s (ainsi en France 1 'heure o 
fficielle auance en et£ de 2 

heures e t " 
PRINT : PRINT "en hiver de 1 

sur 1 ' heure ree lie)." 
UTAB 21: PRINT "Les calculs 
sont arrondis 4 la minute," 
UTAB 24: GOSUB 685 
GOSUB 570 

IF P = 90 THEN GOSUB 910: G 
0T0 240 

LT = CP + PM / 60) * PI / 18 
0:L1 = P:L2 = PM 
IF W = 1 THEN GOTO 320 
HOME : UTAB 10 jY = 24 
PRINT "Quelle est 1 heure de 

depart ? " 
GOSUB 990 

IF W = 1 THEN GOTO 320 
HOME : UTAB 12:2 = 46 
PRINT "Quelle est, en Km, la 



315 
320 



325 



uitesse de l'appareil ? ": 
GOSUB 700 

IF X = THEN GOSUB 1015: G 
0T0 280 

V = X 

IF W - 1 THEN GOTO 320 
HOME : UTAB 12:2 = 50 
PRINT "Quelle est la distanc 
e K i lome* tr ique a parcourir ? 
11 : GOSUB 700 
D = X 

HOME : PRINT 
tude = " ;L1 ; 
B 1 1 : PRINT 
= " ;H1 ;" H 
HTAB 31 : PRINT 
nne = " ;U: HTAB 



Lat i 
HTA 
art 



" Donnees 

Heure de 
" ;H2:" m" 

Vitesse moye 
11 : PRINT "D 



parcourir = 



istance a 
Km" 

330 UTAB 6: POKE 36.23 
335 PRINT "HEURE D'ARRIUEE SEL0N 

LA DIRECTION" 
340 UTAB 8 



(suite) 345 PRINT MC>irection ' "Atte 

rrissaqe " " Date 
Observat i on" 
350 M = 0: IF D < =0 THEN GOS 

UB 1035; GOTO 305 
355 IF D > = 40000 THEN M = D / 

40000 
360 T = D / U 

365 Q = 24 / <40000 * COS <LT>) 

* D 

370 A = H + T ; GOSUB 775: G = LT 

* 40000 / PI / 2 
375 IF D - M * 40000 > 10000 - G 

AND D - M * 40000 < 30000 - 
G THEN GOSUB 890 
380 UTAB 10 6AQ3 
385 D1R$ = " ] e nord" ; GOSUB 820 
390 A = H + T: GOSUB 775 
395 IF D - M * 40000 ) 10000 + G 
AND D - M * 40000 < 30000 + 
G THEN GOSUB 890 EA6I 
400 UTAB 13 6806 
405 DIR* = " le sud" : GOSUB 820 
410 M = :F = 

415 QQ = Q : I F Q ) = 24 THEN QQ 

= Q - INT (G / 24) * 24 FD26 
420 IF QQ > = 12 THEN F = F - 1 

: GOSUB 545 
425 A - H * QQ + T: IF Q > =24 

THEN M o Q / 24 
430 UTAB 16 

435 GOSUB 775:DIR* = Test": GO 
SUB B20 

440 IF QQ > =12 THEN F = F + 1 

■ GOSUB 545 
445 A = H - QQ + T 
450 IF A - INT (A) > 0.99 THEN 

A = INT <A) + 1 
455 IF A < THEN F = F - 1 
460 IF A < THEN A = A # 24: GO 
TO 460 

465 UTAB 19 5C0C 
470 DIR* = "l'ouest": GOSUB 775: 

GOSUB 820 
475 2 - INT < INT < INT ( (T - 

INT (T)) * 60) * 100) / 100) B863 
480 UTAB 22: POKE 36,26: PRINT " 
Dur$e du vol = " : INT (T) ; * 
H " ; INT ( INT ( INT (<T - 
INT <T)) * 60) * 100) / 100) 
FCC5 m" ; E895 

4B5 GOSUB 6B5 0B53 
490 W = 2 DE59 
40DA 495 Bt = "4" : IF W = 2 THEN B* = 



501 

50! 

511 
51! 



521 



52! 
531 
53! 
541 
54! 

551 
55! 

56( 

57( 
57? 
58« 
58? 



59< 



59! 

601 
60! 
611 

61! 
621 
62! 
631 

63! 
641 

64! 
651 
65! 
661 
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TRE 



•5- 

500 GOSUB 945 
505 C = VAL <C*) : ON 
,560,130,555,1510 



C GOTO 510 



Lat 
PR I 



: VTAB 10: HTAB 8 
"Voul ez-vous ? 1 = 
1 1 PRINT : HTAB 22: 
- Heure de depart" 
: HTAB 22; PRINT "3 = 
PRINT : HTAB 22: P 
= Distance a parcour 



510 HOME : 
515 PRINT 
i tude ' : 
NT "2 = 
520 PRINT : 
Vi tesse' 
RINT "4 
ir" 

525 GOSUB 975 

530 U = 1 

535 C = UAL (C*) 

540 ON C GOTO 240,260,280.305 

545 08SS ■ "Ligne de changement 

de " :AJ* = "date -franchie" 
550 RETURN 

555 HOME : VTAB 12: HTAB 36: PR I 

NT "Termini" : END 
560 CLEAR :2 = 12:PI = 3.1415926 

: GOTO 240 
570 REM SAISIE DES COORDONNEES 
575 22 = 12 

580 HOME : VTAB 10:Y = 
585 PRINT "Indiquer la 
choisie (par exempl 
st a 48 B 
590 VTAB 12: 
r$s = : i 
"M i nutes 
595 VTAB 12: POKE 
a ;i POKE 
600 2 = 28 
605 GOSUB 700 
610 G0SU8 655: 

GOTO 595 
615 P = X 
620 IF P = Y 
625 Y = 59 :Z 
630 VTAB 12: 



90 

1 at i tude 
e Par i s e 

50')" 

HTAB 20: PRINT "Deo 
: POKE 36,40: PRINT* 



36,28: PRINT 
36,28 



IF X = 1000 THEN 



THEN 
= 50 
POKE 
POKE 



GOTO 650 



36 , 50 ! 
36,50 



PRINT 



635 GOSUB 70Q 

640 GOSUB 655: IF X = 1000 THEN 

GOTO 630 
445 PM = X 
650 RETURN 

655 REM VERIFICATION DE VALEURS 
660 IF X < > INT (X) THEN X = 
1000: VTAB 23: POKE 36,1: PR 
INT "Donner un n ombre entier 
, s' if udus plait 1 " : GOSUB 
685: RETURN 
665 IF X > Y THEN X = 1000: VTAB 



DB61 
3552 

A667 
ECDC 



2E2D 



E48C 
2F55 
E058 
F5B0 
F486 

FC72 
63B1 

1C4B 

5E6F 

01BF 
C9A0 

E2CE 

169B 

1AFC 
6494 
FF47 

5432 
3578 
0A30 
1860 

63F2 
FF47 

5428 
F0C5 
63B1 



F36E 



23: POKE 36.1 : PRINT "II ne 
peut y en avoir que "?Y;" !' 
s GOSUB 685 

670 IF X < THEN X = X - X * 2 

675 RETURN 

680 PRINT : POKE 36 f 27: PRINT " 
POKE 36,37: PRINT 

685 VTAB 24: POKE 36,1: PRINT 
our continuer, f rapper une 
ouche quelconque autre que r 
etour chariot " ; : GET C*: PR 
INT Dt; i IF ASC <C*) 
HEN GOTO 685 

690 VTAB 22: PRINT CHR* (IDs 

695 RETURN 

700 REM SAISIE DE VALEURS 
705 X* = ■■ 

710 VTAB 22: POKE 36.2: PRINT 
POKE 36, Z 
1 TO 20 
PRINT D*; i 
THEN GOTO 



"P 
t 



= 13 T 



715 
720 



10); 
I = 
C*: 
= 21 



IF ASC 
720 



ASC <C*) = 8 THEN GOTO 



THEN C* = 1 
<C*) = 11 THEN 



GOTO 



PCC 
FDR 
GET 
Ct) 
725 IF 

705 
730 IF C* - 
735 IF ASC 

755 
740 IF ASC 

11 THEN 
745 IF ASC 
770 

750 PRINT CS;: 

GOTO 760 
755 IF C* < 

VTAB 23: 

rreur de 

GOTO 700 
760 X* = X* 
765 NEXT I 

770 X = VAL <Xf ) i RETURN 

775 REM DETERMINATION DE LA DATE 



<C*) = 13 AND X* ~ " 
GOTO 710 

(CS) ■ 13 THEN GOTO 



IF C$ ■ 



THEN 



"0 H OR C* > "9 U THEN 
POKE 36,1 : PRINT "E 
frappe" : GOSUB 685: 

+ C* 



780 
785 

790 



DTE* ~ 

IF A - INT <A) * 60 = 60 TH 
EN A - INT <A + 1) 
IF A > 24 THEN A = A - 24:F 
■ F * 1 1 GOTO 790 
795 DTE* = "ce jour" : IF F 
HEN DTE* = STR* <F) + 
rs apres" 



> 1 



T 

J ou 



800 



805 



810 



IF F 
dema i 
IF F 

veill 
F = I 



DE8B 
7D67 
63B1 

BAC? 



= 1 THEN DTE* = "le I en 

n" 

= - 1 THEN DTE* = "la 

e" 

> 

(suite 



3C77 
C3CF 
63B1 

3A90 

7E33 
6EEE 

0F7C 

305E 
2EC1 

8E8D 

A7E3 

D28C 

C0F8 



3CFB 
36F7 
9DCB 
30C5 

FD15 

1985 

1C7C 

A3CC 

1B0B 

6704 
3046 

page 6) 
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815 RETURN 
820 REM AFFICHAGE 
825 PRINT DIR*;: POKE 36.17 
830 IF INT (A3 < 10 THEN PRINT 
* 

835 PRINT INT <A + 0.0001);" H 
* 

840 A2 = INT (<A + 0.0001 - IN 
T (A + .0001 ) ) * 60) : IF A2 

< 10 THEN PRINT " "; 
845 PRINT A2; " m" ; 

850 POKE 36,35: PRINT DTE*; 
855 IF M = THEN GOTO 875 
860 M = INT (CM + 0.00001) * 10 
0) / 100:TR* = "tours" : IF M 

< 2 THEN TR* = "tour" 

865 OBS$ - 1 du parallele": IF D 
IR* ■ Me nord" OR D1R* = "1 
e sud" THEN OBS% = ■ de terr 
e" 

870 POKE 36,52: PRINT M ; " " ;TR* ; 

0BS*;:OBSS = "": GOTO 880 
875 POKE 36.52: PRINT 08S*;;OBS$ 

= "" : PRINT SPC< 60) ;AJ*; :A 

J$ = 

880 PRINT 
885 RETURN 

890 REM PASSAGE D'UN HEMISPHERE 

A L AUTRE 
895 OBS* = "Au del a du pole: -fus 

eau" ;AJ* = "oppose (12 H d'e 

cart) 

900 K = A:A = A + 12: IF K > 12 

THEN A = K - 12 
905 RETURN 

910 HOME : YTAB 5: HTAB 25? PRIN 
T "Uous vous trouuez AU POLE 
." : PRINT : PRINT : POKE 36, 
57: PRINT : PRINT "J" 11 
n'y a qu'une seule direction 
possible :"le sud au pole n 
ord, " 

915 POKE 36,58: PRINT " 

920 POKE 36.46: PRINT "le nord a 

u pole sud." 
925 PRINT : POKE 36,28; PRINT "" 

" ; : POKE 36,40: PRINT " * ■ ; : 

POKE 36,54: PRINT "*" 
930 PRINT "2' II n'y a pas d'heu 

re au pole, ou plutot il est 
en meme temps toutes les " : 



(suite) 

63B1 
DFE8 
2661 
5868 



D9CE 
CD54 
EFE6 
360D 



8685 



154E 



DBF3 



E2AA 
75BA 
6381 



DE66 

4AC3 
63B1 



B9EF 
3A51 

6914 



7EC1 



935 



940 
945 
950 



955 



960 



965 



970 



: PRINT "heure 
1 es me> i di ens 

: POKE 36,23: 
ice n'a done p 
G0SUB 685 



PRINT : HTAB 4 J 
s puisque tous 
y convergent.' 
PRINT : PRINT : 
PRINT "L'exerci 
as de sens. 
RETURN 

HOME : VTAB 10: HTA8 8 
PRINT "Voulez-uous : 1 = Mod 
ifier une des donnees sans c 
hanger les autres 
PRINT : HTAB 22: PRINT "2 - 
Recornmencer sur d'autres don 
nees" 

PRINT : HTAB 22: 
Reu en i r au menu 
PRINT : HTAB 22: 
Term i ner ■ 

IF W - 2 THEN PRINT 
22: PRINT "5 = Quelques sugct 
est i ons" 
975 VTAB PEEK (37) + 
: PRINT "RSpondre 
e>o convenabl e " ; 
GET Ct: PRINT D*: 
OR C$ < "1" THEN 
(373 : POKE 36.53: 
RETURN 

REM HEURE DE DEPART 
VTAB 12: HTAB 20: PRINT 
re = " ; : POKE 36,40: PRINT 
Minutes = " 



PRINT "3 = 



PRINT "4 = 



3 i HTAB 20 
par le num 



980 



985 
990 
995 



IF C$ 

VTAB 

GOTO 



> B* 
PEEK 



"Heu 



1000 
1005 

1010 
1015 



1020 
1025 

1030 
1035 



1040 

1045 
1050 



GOSUB 595 

H = P + PM / 60: HI = P:H2 = 
PM 

RETURN 
UTAB 23 
ans ces 
qe pas 



: POKE 36.1; PRINT "D 
cond i t i ons i 1 ne bou 
•": GOSUB 685: 



REM CALCUL DE L" HEURE 

HOME : HTAB 29: PRINT "CALCU 

L DE L'HEURE" 

VTAB 6 

PRINT "Nous aliens calculer 
1 'heure qu'il est dans un en 
droit donn# par rapport & ce 

1 It" 

PRINT "que uous attribuez a 

1 a France . " 

PRINT 

PRINT : PRINT "II s'acjit de 
1 "HEURE DU FUSEAU. L'heure 1 
e'gale peut en di-f-fe'rer, ains 
i en France" 



EA8D 



F869 
63B1 
ECDC 



3B7D 

66E0 
18DA 
443D 

D692 

ED71 



87F8 
63B1 



3C66 
FA53 

40F2 
63B1 



RETURN 4EA 



DB73 
2CD8 



E269 

D33A 
75BA 



66C7 



10E 



106 
106 



107 

107 
108 

108 



109 
109 



110 
110 

in 



in 

112 
112 
113 

113 

114 
114 
J 1 5 

115 

116 
116 

117i 
117 

118i 
118! 

1191 
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"e" AND Of < 
> "o" THEN 



1055 PRINT ,l oQ nous sommes en ava 
nee sur le soleil de 2 heure 
s en et# et de 1 en htver." 

1060 PRINT 

1065 PRINT : PRINT "Ces amenageme 
nts artificiels d'horaire $t 
ant tres variables dans le m 
onde, nous 

1070 PRINT : PRINT "n'allons pas 
en tenir cornpte." 

1075 GOSUB 685 

1080 HOME : "-/TAB 10 :Y - 180 :22 = 
12 

1085 PRINT "Indiquer la longitude 
dont vous voulez connaitre 

1 'heure" : GOSUB 590 
1090 LG = <P * 60 + PM>:L1 = P:L2 

= PM 

1095 PRINT : PRINT : HTAB 6: PR1N 
T "Est ou Quest ? (taper E o 
U 0) "j! GET 0*: IF W < > 
"E" AND 0$ < 3 
) "0" AND 0* < 
UTAB 12s GOTO 1095 

1100 PRINT 0-1 

1105 IF k = 1 THEN GOTO 1115 
1110 HOME : UTAB 10: PRINT "Quell 

e heure est-il en France ? " 

:Y = 24: GOSUB 990 
1115 IF LG - 450 < THEN H = 
1120 H = INT <<LG - 450) / 900) 

+ 1 

1125 P2 = HI + H: IF 0$ = "o" OR 
0* ■ "0" THEN P2 = HI - H 

1130 DTE* = "Ce jour"; IF P2 > 24 
THEN P2 = P2 - 24:DTE* = " 1 e 
1 endema i n" 

1135 IF P2 < THEN P2 = 24 + P2: 
DTE* = "la vei lie" 

1140 PRINT 

1145 HOME : UTAB 10: POKE 36,20 
1150 PRINT "France' ; : 

IF LI < 10 THEN 
1155 PRINT LI ;"• " ; : 

HEN PRINT "0 M i 
1160 PRINT L2;'" 
1165 PRINT : POKE 36,18 
1170 IF HI < 10 THEN PRINT ■ 
1175 PRINT HI ; M H " " i : IF H2 < 10 

THEN PRINT "0" : 
1180 PRINT H2s" ra" | 
1185 POKE 36,45: IF P2 < 10 THEN 

PRINT M " ; : 
1190 PRINT P2; ■ H ' ' ; : IF H2 < 10 



POKE 36.49: 
PRINT ' "1 
[F L2 < 10 T 

PRINT 0$ 



DD8C 
75BA 



E396 

229F 
0B53 

ABC9 



96F5 
7695 



E745 
B52D 
A63C 



AC91 
9BAF 

0BDF 

F2DC 

CCEF 

25B3 
75BA 
3CBE 

7E90 

8C30 
36C0 
71AB 
E575 

CC55 
0358 

12A9 



1195 
1200 
1205 

1210 

1215 
1220 

1225 



1230 
1235 
1240 



1245 
1250 
1255 
1260 

1265 

1270 

1275 
1280 



1285 
1290 



1295 
1300 



1305 



1310 

1315 
1320 

1325 
1330 
1335 



THEN PRINT "0" ; 
PRINT H2; w m " 11 ; DTE* ; 



GOSUB 945: IF C* 
CLEAR : GOTO 130 
THEN CLEAR : GO 

THEN GOTO 555 
•2 U : HOME : UTAB 



GOSUB 685: 
= "3" THEN 
IF C* = "2' 
TO 1080 
IF C* = "4" 
U = 1 s B$ ■ ' 
12! HTAB 15 

PRINT "Uou 1 ez -uous changer 1 
= La longitude": PRINT : PO 

KE 36.34: PRINT "2 = L'heure 
en France": GOSUB 975 

IF C* = "1" THEN GOTO 1080 

GOTO 1110 

REM CALCUL DE LA LONGUEUR D' 
UN PARALLELE ET DE LA LARGEU 
R O'UN FUSEAU 



22 - 
HOME 



12 



GOSUB 570 
IF P ■ 90 THEN PM = 
LT = <P + PM / 60) * PI / 18 
0:L1 = P:L2 = PM 
LP = 40000 « COS (LT) :LF = 
LP / 24 

LP = INT (LP * 100) / 100:L 
F = INT CLF * 100) / 100 
HOME : UTAB 10: HTAB 15 
PRINT 'Lonqueur du parall&le 

"ILI;"' m ;L2\ a ' = ";LP;" Ki 
1 ometres" 
UTAB 13; HTAB 15 
PRINT "Larqeur d'un fuseau a 

cette latitude :"sLF;" K i ? 
ome tres" 
UTAB 16 

HTAB 15: PRINT LF" Kilometre 

s est aussi la Vitesse a laq 

ue 1 1 e se depl ace " 

HTAB 15: PRINT "un point " ; 

CHR* (34) ;" imrnobi le" ; CHR* C 

34);", en raison de la rotat 

ion de la terre" 

UTAB 22: PRINT " Pour reveni 

r au menu, trapper ESCAPE" 

GOSUB 685 

IF C$ = CHR* (27) THEN GOT 
130 
GOTO 1240 
GOTO 130 

REM HEURE DUN LIEU DU TABLE 
AU 



775E 
9869 
5DAE 

286E 

E789 
C06A 

61 B4 



5962 
F991 
486E 



01BF 
3C1D 
5497 

0A6A 

E562 

9FEC 
9A0A 



736D 
553C 



2DB5 
5E09 



7C8F 



504A 

0717 
0B53 

3388 
6B72 
173F 
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IBBBBBB BBBBB BBB 



HEURES 



(suite) 



1340 
1345 
1350 
1355 
1360 
1365 

1370 
1375 
1380 
1385 
1390 



1395 
1400 



Z2 = 22 :Y - 40 
HOME 
RESTORE 

FOR I = 1 TO 40 
READ A$: READ A 
IF I > 20 THEN VTAB I -20: 
POKE 36,40 

IF 1 < 10 THEN PRINT " " s 
PRINT I;" ""; 
PRINT AS 
NEXT 1 

VTAB 22 iZ = 67: PRINT "Quel 
num£ro cho i s i ssez-vous ? (po 
ur reven i r au menu, f rapper 
99 )" ;: GOSUB 700 
IF X = 99 THEN GOTO 130 
IF X < 1 OR X > 40 THEN VTA 
B 23; POKE 36,1; PRINT "Donn 
er un num£ro entre 1 et 40 1 
": GOSUB 685: V/TAB 22: PRINT 
CHR* <11): GOTO 1390 
N = X 

HOME : UTAB 10 :Y = 24:22 = 1 
2 

PRINT "Quelle heure est-il e 
n France ? : GOSUB 990 
RESTORE 

FOR I = 1 TO N 
READ AS: READ A 
NEXT I 

DTES = "ce jour" 
H = HI + A: IF H 
= H - 24: DTES = ' 
n " 

1450 IF H < THEN H = 24 + HrDTE 



1405 
1410 

1415 

1420 
1425 
1430 
1435 
1440 
1445 



> 24 THEN H 
le lendemai 



1455 
1460 
1465 
1470 

1475 
1480 

1485 
1490 

1495 
1500 
1505 
1510 



10 



S = "la ve M 1 e M 
HOME : MTAB 12: HTAB 20 
PRINT B S' i 1 est " ; 
IF HI < 10 THEN PRINT " 
PRINT HI ; " H " ; ; IF H2 < 
THEN PRINT " " ; 
PRINT H2; n m en FRANCE," 
PRINT : HTAB 20: PRINT M il 
st " n ; 

IF H < 10 THEN PRINT ■ " j 

PRINT H ; " H " ; : IF H2 < 10 

HEN PRINT ■ " ; 

PRINT H2;" " ; DTES ; " a n }AS 

GOSUB 685 

GOTO 1335 

REM SUGGEST I ONS 



6287 
2F97 
5DAE 
62F0 
ADEE 

2DED 
7E45 
2BFD 
Dl IF 
9DCB 



2C36 
6D4A 



5F4B 

1076 

7D96 

D3BA 
5DAE 
El DA 
ADEE 
9QCB 
C7FD 



63DE 

OA05 
9E08 
B974 
E575 

3025 
5ACE 

7760 
2744 

12F4 
B7AE 
0B53 
5577 



1515 
1520 

1525 



1530 
1535 

1540 

1545 



3 550 



1555 



1560 



1565 



1570 



HOME 

PRINT "1') Se placer a la la 

t i tude 90" : PRINT 

PRINT "2'3 Heure 12, uitesse 
1000, distance 40000 Km, se 
placer success i uemen t aux" 

HTAB 5: PRINT "latitudes 0,6 

0,89" : PRINT 

PRINT "3*) Latitude 0, Heure 
12 t vi tesse 1666.666 Kn> t fa 
ire warier les distances et ,f 
HTAB 5: PRINT "constater ce 
qui se passe lorsque l'on ua 

uers 1 ' ouest . 1 
HTAB 5: PRINT "Reproduire le 
ph^nomene pour d'autres lat 
i tudes : yitesse = largeur d 
u" : HTAB 5: PRINT "fuseau, c 
alcuHe en executant le 4 B d 
u menu" 

PRINT : PRINT a A m > Latitude 
0, Heure H 30 , uitesse 200 
0, distance 6000 : uoir ce q 
ui se passe" ;: HTAB 5: PRINT 
"quand on ua uers 1 'ouest. F 
aire ensuite uarier les donn 
ees." 

PRINT : PRINT "5') Latitude 
0, Heure 12, vitesse 1000 Km 
r distance 10001. Se placer 
ensuite a*: HTAB 5: PRINT "u 
ne au tre 1 at i tude • M 
PRINT : PRINT *6 m ) Latitude 
0, Heure 12, vi tesse 1000, d 
istance 20001. Constater ce 
qui se™ : HTAB 5: PRINT "pass 
e quand on va uers Vest ou 
1 'ouest" 

PRINT : PRINT »7") On peut a 
bandonner le schema de 1 ' aw i 
on : le programme s 'applique 
aussi 1 : HTAB 5: PRINT "bien 
au pie 1 ton qu'a la fusee."; 
GOTO 485 



2F97 
7148 

A29D 
4025 

3ACA 

ADA4 



6A49 



2760 



603A 



E2B6 



36ED 
294C 



Ne cherchez plus nos courtes routines en 
langage machine : la plupart d'entre elles 
sont regroupees (avec d'autres, inedites), 
dans des recueils pratiques, accompagnes 
d'unedisquette. 



Bulletin de commando page 75. 



GU Y-HACHETTt 



DIDACTIQUE 



ProDOS 



DOS 3.3 



Roland JOST 



Transfer! de variables du Basic 
vers un programme en assembleur 



La programmation en Assembleur perrnet d'ecrire des programmes plus courts et surtout 
plus rapides que le Basic, Les revues consacrees a ('Apple publient de nombreuses routines 
pretes a etre incorporees d vos programmes. Ces applications necessitent souvent le trans- 
fert de donnees en provenance du programme Basic appelant. La methode la plus courante, 
que je trouve personnellement peu eonviviale, est de poker les differentes valeurs a des 
adresses libres en memoire (generalement dans les trous de la page 0) ou le programme 
Assembleur pourra fes retrouver. Je pense qu'il est preferable de faire I'appel par un CALL 
adresse, variable!, variabh2 t ... variable n t d'autant que les routines de la ROM sont dis- 
posers d vous faciliter la tdche. Ce sont ces routines que je vous propose de decouvrir et 
d'utiliser pour le transfert de variables entieres. 

1. Un nombre entier entre et 255 : CALL 768, X 

S3aa : JSR CHKCOM ; teste la virgule apres I'adresse 

$303: JSR GETBYT ; evalue la variable X 

$306: 86 06 STX 06 ; stocke la valeur en $06. 

GETBYT evalue Texpression. Le resultat est mis dans le FAC et convert! en un entier inferieur a 256 et enfin 
stocke dans X et aussi dans FACLO. La valeur de X est ensuite sauvegordee a I'adresse $06. 

II est possible de gagner 3 octets : 

$300 : JSR GETBYTC ; saute un caractere et evalue X. ~] GETBYTC saute un caractere avant 

$303 : 86 06 STX J d appeler GETBYT. 

Et voici encore une autre possibility : 

$300 : 20 4C E7 JSR COAABYTE ; teste ia virgule et evalue X. 
$303 : 36 06 STX 

Le sous-programme COAABYTE ($E74C) verifie que l octet pointe par TXTPTR est une virgule, puis appelle 
GETBYT (SE6F8). y h kh 



2. Un nombre entier entre et 65535 



$2FD 


20 


DE BE 


JSR CHKCOM 


$300 


20 


67 DD 


JSR FRMNUM 


$303 


20 


52 E7 


JSR GETADR 


$306 


A5 


50 


LDA 50 


$308 


85 


06 


STA 06 


$30A 


A5 


51 


LDA 51 


S30C 


85 


07 


STA 07 



CALL 765.X 

teste la virgule 
evalue la formule 
FAC -» LINNUM 
transfere LINNUM dans $06 

transf ere LINN UAA+1 dons $07, 



Le nombre sera stocke en $06 ef $07. 



FRMNUM ($DD67) evalue la formule pointee par TXTPTR ($B8-B9) en verifiant que c'est un nombre et range la 
valeur dans le FAC. GETADR ($E752) transforme FAC en entier sur deux octets et fe range en LINNUM ($50-$51). 
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3. Saisie de plusieurs entiers 



CALL * 


JAR Fl F2 Fn 






Fl F / con4 (Iqc onfiorc jr>mrioi ire n vSA 
CI , L£ SUllJ 'Jc3 cllllfc'lb llllcfl IcUl 3 U ZJQ. 




l\J bt Ut 


1 C D 


tprn r 


teste la virgule 


$303 


An Art 

AO 00 


LDY 


£$00 


■■■via 1 , 

initialise le pointeur 




Oi r a 


STY 


SFA 


sauve dans $FA 




O/l CQ Li. 
£\f ho to 


1 C D 


H CTDVT 

Cjc IdY 1 


evalue la tormule 


$30 A 


A4 FA 


LDY 


SFA 




$30C 


96 06 


$TX 


$06,Y 


stocke la variable 


S30E 


E6 FA 


INC 


SFA 


incremente le pointeur 


$310 


C9 2C 


CMP 


£$2C 


le code ASCII de la virgule est 2C 


$312 


DO 06 


BNE 


S31A 


pas de virgule, c'est fini 


$314 


20 B1 00 


JSR 


CHRGET 


continue la lecture 


$317 


18 


CLC 




on continue 


$318 


90 ED 


BCC 


S308 


la baucle... 


$31 A 


... suite du programme. 




Les valeurs seront di 


sponib 


esen$G6, $07, $08, etc. ... 



Si vous preferez les parentheses, les concepteurs de la ROM de I'Apple ont encore pense a vous : 
CALL 768(X) ou X est un entier inferieur a 256 : 



$300 
$303 



20 B2 DE 
20 FB E6 
86 06 



JSR 
JSR 
STX 



PARCHK 
CONINT 



PARCHK (SDEB2) verifie la presence d'une parenthese ouvrante, evalue la formule qui suit par FRAAEVL 
($DD7B) et teste la presence de la parenthese fermante. La valeur du FAC est transformee en entier dans X 
par CONINT ($E6FB). 

On pourrait aussi utiliser : 



$300 
$303 
$306 



20 F5 E6 
20 68 DE 
86 06 



JSR GETBYTC 
JSR CHKCLS 
STX $06 



teste la parenthese fermante. 



APPLE II ProDOS 



Par Marcel COTTINI 



Vous ne tirerez pleinement profit de 
votre Apple que si vous connaissez 
parfaitement les multiples ressources 
de son nouveau systeme d 'exploita- 
tion : ProDOS. 

Apres avoir lu I'excellent ouvrage de 
Marcel COTTINI, vous trouverez en 
ProDOS l'un de vos meilleurs allies 
pour une programmation avancee. 



EX TRAIT DE LA TABLE PES MATIERES : 

Familiarisation du lecteur avec ProDOS 

Les vecteurs parttculiers sous ProDOS 

Systeme DOS 3.3 ou ProDOS ? 

Monitor, interpreteur Applesoft et ProDOS 

Le boot d'une disquette ProDOS 

Occupation type d une configuration Apple 

Commandes typiques du Baste. System 

La Basic System Global page 

et bien d'autres sujets ! bulietinde commanoe page n. 



• A 

I 

c 

Rassi 

amis 

IBM. 

malg 

etres 

gres. 

MS-D 

d'exp 

micrc 

neis. 

semb 

f'on n 

Allen 

Claire 

inforr 

et„. i 

tile di 

La pre 

merit 
struct 
les fc 
clavie 
series 
tie s'c 
gramr 
cote c 
trouvt 
I'edite 
progn 
ainsi c 

5Y8EX, 

4J6 pag 
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TREMF 



Votre bibliotheque 
INFORMATIQUE 



• MS-DOS, GUIDE 
DU PROGRAMMER 
(Richard Allen King) 

Rassurez-vous, applemonioques mes 
amis, je ne suis pos vendu ou standard 
IBM. Mais je ne suis pas non plus — 
malgre man grand age — I'un de ces 
etres retrogrades qui refusent le pro- 
gres. Le standard en question existe, 
MS-DOS est actuellement le systeme 
d'exploitation le pius utilise sur les 
micro-ordinateurs 16 bits profession- 
nels. II est bon de savoir a quoi il res- 
semble... et je vous prie de croire que 
Ton n'est pas decu. Le guide de Richard 
Allen King (traduction francaise de 
Claire Baccichet) presente foutes les 
informations necessaires d I'utilisateur 
et... ou proarammeur (il n'est pas inu- 
tile de faire la distinction !). 

La premiere partie decrit le fonctionne- 
ment de MS-DOS versions 2 et 3, la 
structure des disques et des fichiers, 
les fonctions du BDOS, 3a gestion du 
clavier, de I'ecran et des interfaces 
series et paralleles. La deuxieme par- 
tie s'adresse plutol au lecteur non pro- 
grammer (il en existe beoucoup du 
cote des compatibles, on le sait). On y 
trouve les details de I utilisation de 
ledileur Edlin, des fichiers batch et du 
programme de mise au point Debug, 
ainsi que de nombreux utilitaires. 

MET, 6-8 Impasse dv Cure, 7583} PARIS CEDEX 18 
416 pages -248 FTTC 




GUIDE DU PROCRAMMIUR 



I 

! M 



fiCC Trtomas 
ULo A.Bass 

ORDINATEURS 
CONTRE 




• DES ORDINATEURS 
CONTRE LAS VEGAS 
(Thomas A, Bass) 

Des doutes m'ossaillent quand on pre- 
cise qu'un recit aussi extravagant que 
faire se peut, est pourtant I'etrange et 
authentique aventure d une bande de 
physiciens et d'informaticiens sorciers 
a I'ossaut des casinos... 

II parait que tout cela est vrai et que 
cette passionnante histoire de 350 
pages n'est pas un roman. Comme 
vous allez evidemment vous oftrir ce 
bouquin, je suppose que nous ne tar- 
derons pas a entendre parler de 
vous... lorsque vous aurez, grace a un 
micro-ordinateur glisse dans la 
semelle de vos chaussures, ruine tous 
les casinos de France et de Navarre ! 

Attention ! les choses ne seront pas si 
simples. Vous devrez non seulement 
reinventer toutes les procedures mises 
au point par la petite bande, mais 
apprendre a pianoter avec vos orteils, 
Evidemment, vous beneficierez de 
l experience de nos heros, mais vous 
porlirez neanmoins avec un reel handi- 
cap ; nous ne sommes pos a Las Vegas, 



par NESTOR 

mais en France... et vous n'etes pas 
Americain ! 

Editions Albin Michel, 

22, fueHuyghens, 75014 PARIS 
350 pages - 95 F TTC- 

• DiCTlONNAIRE 
MICRO-INFORMA TIQUE 
(Pierre Le Beux) 

Un dictionnaire de plus... Nolez que 
revolution perpetuelle de la micro- 
informatique et de son vocabulaire jus- 
tice a elle seule les multiples editions 
qui tentent de nous faire mieux connai- 
tre les mots employes dans les ouvra- 
ges techniques. Celui-ci presente 
1'ovontage de comporter des lexiques 
francais-anglais et anglais-francais (ce 
qui n'est pas vraiment original), mais 
aussi franca is -alie ma nd et allemand- 
francais, ce qui est moins courant et 
seduira proboblement de nouvelles 
categories de lectrices et lecteurs 
Vous constaterez que nos voisins olle- 
mands empruntent volontiers les ter- 
mes anglais, A tort ou a raison. Que 
cela ne nous empeohe pos d'exiger, en 
France, des documentations redigees 
en Francois, el non en franglois, 

SYBEX, 6-8 Impasse du Cure, 75881 PARIS CEDEX 18 
200 pages- 98 FTTC 
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UTILITAIRE 




Clement RENARD 



VIDEC 



EFFACEMENT 
PROGRESSIF 
DE L'ECRAN 



Cette routine fonctionne aussi bien en 40 qu'en 80 colonnes. Son principe est simple. Chaque carac- 
tere est lu et sa valeur decrementee de 1 jusqu'au moment ou elle est egale a l espace 



105 

no 

115 
120 

125 
130 
135 

140 
145 



TEXT : NORMAL :DS = CHR$ (4): PRINT D$ PR£3": PRINT : HOME 

HTAB 9: INVERSE ; PRINT " VIDEC (EFFACEMENT PROGRESSIF DE L'ECRAN EN 40 OU 80 COLONNES) ": NORMAL 
POKE 34.2: VTAB 3 

FOR I = 768 TO 823: READ R: POKE I.R: NEXT 

DATA 169.0,133,6,162,23,138,32,71.248,160.39,32.40,3,44,31,192,16.9,44,85.192,32,40,3,44,84,192,136,16,236,202, 

16, 227, 165,6. 208,217, 96,177,38,201. 160, 240,9,56,233, 1.145,38, 169,1. 133,6.96 

LIST : LIST :N = 80: GOSUB 145 

PRINT CHRS (17): N = 40: HOME : LIST : GOSUB 145 

PRINT CHRS (18): VTAB 22: PRINT "(M)ENU DE DISQUETTE ";: GET R$: IF RS = " m "ORR$ = "M" THEN PRINT D$"RUN 
MENU" 
HOME : END 

PRINT : VTAB 24: INVERSE : PRINT "ESSAI EN "N'XOLONNES ";: NORMAL : CALL - 198: POKE 49168.0: WAIT 
49152,128: POKE 49168,0: CALL 768; RETURN 



On initialise cette adresse-fest (on peut prendre n importe quelle 
odresse disponible). 

X va servir de compteur pour le nombre de lignes. 

On le posse dans A pour GBASCALC qui va nous placer I'odresse de 

base de la ligne en $26-27. 

Y = 39 (on va lire de 39 a inclos). 

Vers le sous programme. 

Si on n'est pas en 80 colonnes, saut. 

Sinon meme chose en AUX pour les 80 colonnes. 

On boucle jusqu'd Y =0 inclus. 
Idem pour le nombre de lignes. 

Si $6 contient autre chose que le initial, encore un tour complet 
d'ecran ! 
Retour au BA5IC. 

SOUS PROC — 

Lecture du caroctere. 

Si c'est un espace, rien a faire, 

Sinon on le decremente de 1 et on I'affiche. 
On met 1 dons I'adresse-test. 

BSAVE VIDEC , LM AS3BQ ,L$3S 



300 


A9 


00 




LDA 


£$00 




302 


85 


06 




STA 


$06 


J 


304 


A2 


17 




LDX 


£$17 




306 


8A 






TXA 






307 


20 


47 


F8 


JSR 


$F847 




30A 


AO 


27 




LDY 


£$27 




30C 


20 


28 


03 


JSR 


$0328 




30 F 


2C 


IF 


CO 


BIT 


SC01F 




312 


10 


09 




BPL 


S031D 


314 


2C 


55 


CO 


BIT 


SC055 




317 


20 


28 


03 


JSR 


$0328 




31A 


2C 


54 


CO 


BIT 


SC054 




31D 


B8 






DEY 






31E 


10 


EC 




BPL 


$Q30C 




320 


CA 






DEX 






321 


10 


E3 




BPL 


$0306 




323 


A5 


06 




LDA 


$06 




325 


DO 


D9 




BNE 


$0300 




327 


60 






RTS 







328 


Bl 


26 


_ LDA 


($26), Y 


32A 


C9 


AO 


CMP 


£$A0 


32C 


FO 


07 


BEQ 


$0335 


32E 


38 




SEC 




32F 


E9 


01 


SBC 


£$01 


331 


91 


26 


STA 


($26),Y 


333 


A9 


01 


LDA 


£$01 


335 


85 


06 


STA 


$06 


337 


60 




RTS 
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Retour. 
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TRES SIMPLE ! 

Apprenez d programmer en C sur le GS 



Le 1165 la deception ou I'etot de grace 

Je connais quelques de^us de I'APPLE IIGS, des 
gens comme vous et moi, qui s'attendoient 6 trou- 
ver "LE" super basic MICROSOFT gerant la souris et 
les fenetres encore mieux que ne le fait "MINIE" (ce 
nest pas peu dire 1), et puis voila : Apple nous 
refait le coup de I'APPLESOFT pur, dur et reglemen- 
taire. AAon ami et complice Yvan Kcenig, avec son 
don noturel du sacrifice et du paradoxe, a beau 
affirmer "Less is more", j'entrevois tout de meme 
quelques grimaces parmi les parrains du nouveau- 
nede la Silicon-Valley. 

Ne nous resterait-il plus qu'a faire centre mau- 
vaise fortune bon cceur, et a nous consoler en 
pensant que toutes les petites merveilles que 
nous avons pu ecrire par le passe restent vala- 
bles et fonctionnent meme trois fois plus vite 
grace a la WOZ machine ? 

Bien sur que non : se contenter de cette solution 
reviendrait a n'utiliser que dix pour cent des possi- 
bility de notre nouveile machine. En effet, 1'Apple- 
soft ne tire pas parti des ROM TOOLS et RAM 
TOOLS veritable cceur logiciel de I'Apple IIGS. 

Que faire ? Je vois des doigts qui se levent dans 
I assistance*,, e'est cela meme : apprendre un 
nouveau langage. AT© ! les trois-quarts des lec- 
teurs de Tremplin Micro vont probablement 
negliger mon article pour oiler voir si c,a parle 
Basic un peu plus loin. Amie Lectrice, ami Lec- 
teur, un petit effort s'il vous plait... et I'avenir 
sera a vous ! Restez avec nous ! 

Le secret inf ormotique 

Tenez, je vais confier un secret a eel les et & 
ceux. pleins de courage, qui attendent avec con- 
fiance Ma revelation. Je plonge... "LE" secret 
informatique, le void : 6 de rares exceptions 
pres TOUS LES LANGAGES SE RESSEMBLENT ! 

Parfaitement, on vous a trompes et, a part le fou 
chevelu qui parle LISP ou PROLOG a des ordina- 
teurs intelligents et le moine benedictin qui all- 
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gne des octets de langage machine au fond 
d une cave, les programmers utilisant les Ion- 
gages de haut niveau (BASIC, FORTRAN, PAS 
CAL, APL, C etc.), decrivent plus ou moins les 
memes structures et peuvent por consequent se 
comprendre... 

Les langages du ffutur 

Ceci etant pose, quel langage choisir ? Une recente 
prospective americaine laisse entrevoir pour les 
annees 90 la predominance de trois types : 

\. Pour les applications de tres haut niveau, 
commande de fusees, noyaux de langages 
etc. : survivance de I'assembleur. 

2. Pour les applications de haut niveau, syste- 
mes, editeurs, gestion etc. : langage C. 

3. Pour les applications de bas niveau ou la 
vitesse d'execution n'est pas critique : Basic 
compile, genre QUICK-BASIC de I IBM. 

Oublie le PASCAL, desagrege I APL, sublime le 
FORTRAN : le rouleau compresseur est passe, 
les speciolistes de ^intelligence artificielle ont 
devant eux des lendemains qui chantent avec 
LISP et PROLOG, mais nous autres, pauvres pro- 
grammeurs sur APPLE, si nous voulons rester 
credibles, il va nous falloir sacrifier a la mode et 
apprendre le langage C . 

c portable 

Une bonne nouveile pour commehcer : les pro- 
grammes que nous ecrirons en C pour le GS 
"tourneront" avec des modifications mineures 
sur MAC INTOSH et IBM. C est ce que I'on 
appelle la portability. 

Une deuxieme bonne nouveile : il existe deja 
une version professionnelle de C sur le GS. Les 
petits futes qui ont profites de I'echange "je te 
donne mon EUROplus plein de poils (et cinq mille 
cinq cents francs) et tu me donnes ton GS plein 
de puces" peuvent acquerir, pour une somme 
modique, une doc tout en anglais pour I'mstant, 
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et une tripotee de disquettes 3,5 pouces compor- 
tant entre autres un editeur de texte, un assem- 
bleur version Geessise du genial ORCA, un com- 
pilateur C , un LINKER pour relier tout $a, une 
bibliotheque bien fournie, un SHELL pas pique 
des vers, un ... 

He ! He ! il foul tout pour programmer en C ! 
et vous avez le toupet de dire C tres simple ! 

Mais oui, braves gens ccmbles par tant de bons 
logiciels, il faut tout qa, mais ces outils sont la 
pour vous simplifier la tache ou pour ameliorer 
la qualite de voire travail. 

J'entends, dans le fond de la solle, des individus 
murmurer que sur leur APPLE fie, avec leur 
BASIC, quand on tape PRINT "HELLO" I'ordina- 
teur repond bien gentimenf HELLO sans faire de 
chichi, mais aussi sans LINKER et autres babioles 
logicielles... J'avoue volontiers qu'un environne- 
ment de type professionnel presente evidem- 
ment des inconvenients, et j'aurai bien souvent 
I'occosion de vituperer le systeme de developpe- 
menl APPLE, Toutefois, malgre sa lourdeur, c'est 
le seul outil qui permette de tout faire et de sur- 
croit de le faire bien : pensez qu'un programme 
en C tourne de 20 a 40 fois plus vite que son 
homologue en BASIC ! 

Pour les frais emoulus du Basic, je vats presenter 
rapidement fe systeme APPLE PROGRAMMER S 
WORKSHOP (dans sa version 1.0A7, si I'on en 
croil la notice technique fournie avec la bete). 



LE SHELL 



Premiere surprise : une fois lo disquette APW C 
chargee, on ne retrouve pas le "paysage" Pro- 
DOS habitue! ; I'ecran s'efface et le PROMPT (le 
caractere qui precede le curseur) n est pas le § 
habituel, mais le £. En haut de I'ecran, trois 
lignes nous apprennent que nous venons de 
charger APW SHELL. 

En fait, le SHELL est une interface logicielle qui 
fournit des commandes simplifiant I'ecriture de 
programmes en differents longages. Pour con- 
nattre la liste de ces commandes, tapons HELP. 
Aussitot, I'ecran se remplit aux deux tiers de 
mots mysterieux : CMPL, CMPLG, COMPILE, LINK 
et d autres d consonance plus familiere, tels que 
CATALOG, EDIT, COPY, PREFIX, DELETE, EXEC, 
etc. Pas d'affolement done, d'autant moins que, 
si on tape HELP mot-inconnu (par exemple HELP 
CMPL), le GS nous explique (dans la langue de 



WOZNIAK) la fonction et le mode d'appel du mot 
mysterieux, 

Au cours de notre initiation, nous allons rencon- 
trer trois families de commandes : 

• Les aides documentaires : HELP, CATALOG 

■ Les aides de pro gram mo Hon : EDIT, COMPILE, 

LINK, COPY, DELETE 

■ Les commandes de configuration : EXEC, TEXT 

Rassurez-vous, nous n'utiliserons pas les 54 com- 
mandes disponibles, celles que je viens de citer 
suffisant dans 99% des cas. 



UTIUS0NS LI SHELL 



Avant de nous lancer dans la programmation 
en C , un petit exemple va nous montrer a quel 
point le SHELL est confortable. 

C SYMPA 

Les programmeurs en MSDOS (IBM) ont la 
focheuse habitude de taper DIR pour obtenir la 
liste des programmes d'une disquette. Bien sur, 
PRODOS ne reconnarf pas cette commande et 
"jette" impitoyablement les infideles. Le SHELL 
d'APW ne se comporte pas plus galament, mais 
on peut lui apprendre facilement a EXECuter 
cette nouvelle commande. 

Si on tape HELP EXEC depuis le SHELL, le GS nous 
precise que la commande EXEC permet de creer 
des programmes de commande. On peut grace d 
eux elaborer de nouvelles commandes, enchaT- 
nements de commandes SHELL. 

Tapons : EXEC 

EDIT DIR 

Le disque se met a tourner et, en quelques 
secondes, nous nous trouvons face a un message 
d'erreur nous informant que les parametres de 
tabulation ne peuvent etre trouves, mais que 
cela n'a pas de reelle importance puisque I'edi- 
teur travaille avec des valeurs par defaut. On 
tape RETURN et on se trouve sous l editeur de 
programme. Fort bel EDITEUR au demeurant : 20 
pages de la documentation lui sont consacrees et 
il fait tout ce qu'un honnete homme est en droit 
d'attendre d'un editeur plein ecran moderne ; 48 
commandes en tout, plus 16 macros commandes 
definissables par I'usager... bref, un vrai plaisir. 

Pour I'instant nous allons nous contenter de 
toper la commande SHELL qui remplacera notre 
DIR prefere : CATALOG ele 



Le s 
pass 
UTIL 
Puis 



II ne 
disq 
DIR I 

Un c 
lignc 
defl 

L'uti 
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en p 
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Le symbole ele designe une variable qui sera 
passee depuis la ligne de commande. Ainsi DIR 
UTILITIES sera "traduit" par CATALOG UTILITIES. 
Puis on tape : 

— CTRL- Q pour Quitter I'editeur 

— S pour Sauver notre "programme" sur disque 

— E pour retourner au SHELL. 

II ne nous reste plus qu a taper DIR Miracle ! le 
disque tourne, le catalogue s'affiche. On essaie 
DIR UTILITIES... OK ca MARCH E ! 

Un pelit raffinement nous permet de rappeler les 
lignes precedemment tapees sous SHELL a i'aide 
de fleche HAUTE et de fleche BASSE. 

L'utilite de mon exemple n est pas flagrante pour 
les non habitues d r l8M r mais nous verrons plus 
tard ['importance d'un tel outil : compilateur et 
linker necessitent I'emploi d une syntaxe ver- 
beuse et cornplexe que grace a EXEC, nous pour- 
rons ramener a la frappe d une lettre. 



LE COMPILATEUR 

Puisque nous savons utiliser I'editeur nous allons 
en profiler pour taper notre premier programme 
en langage C et observer ce qui se passe. 

II nous faut taper CC pour informer !e SHELL 
que, dorenavant nous allons travailter en C , 
puis EDIT EXG1.C (nom de notre premier exer- 
cice, n oubliez pas le .C). Lorsque nous sommes 
passes en mode d'edition nous entrons les lignes 
suivantes : 
moin() 

i 

printf( "HELLO GS GOOD-BYE APPLE Hen"); 
e 

Notre sympathique machine vibrera de plaisir en 
constatant que nous parlons sa langue 
maternelle... 

J'apergois des BA5ICOIS qui me font les gros 
yeux : pas de numero de ligne ? et non, car ca ne 
sert a rien. 

Un programme en C est compose dune ou plu- 
sieurs fonctions decrivant les operations qui doi- 
vent etre effectuees. Id une seule fonction, la 
fonction malnQ. Ce nom reserve et obligatoire, 
indique au compilateur ou doit commencer I'exe- 
cution du programme. Les parentheses vides qui 
suivent le nom de la fonction signalent ('absence 
d'argument. 

Les caracteres e et e delimitent un bloc d'instruc- 
■■■■■■•■■■■■■■■■■■■n 
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tions (en fait ces caracteres fran^ais correspondent 
aux accolades curly brackets" de I anglais). 

Dans notre cas, le bloc destruction se ramene a 
une seule fonction : printf , fonction de la biblio- 
theque C et permettant d'ecrire sur le terminal. 

La chalne de caracteres Hello GS Good-Bye 
APPLE II se termine par $n, ce qui correspond 6 
I'envoi d'un retour chariot (corriage return), tan- 
dis que le ; est un separateur destruction pro- 
che parent du : du Basic. 

Votre curiosite justifiee sur la syntaxe de notre 
programme etant satisfaite, il ne nous reste plus 
qu'a demander a la machine de Texecuter. Quit- 
tons I'editeur de la fa^on habituelle (CTRL-Q S E) 
et tapons : CMPLG EX01.C KEEP-EX01 

Ce qui signifie en argot GS : COMPILE et LINK le 
code source EX01.C, conserve le code executa- 
ble genere sous le nom de EX01, puis execute 
EX01. 

La disquette se met a tourner et au bout d'un cer- 
tain temps (plutot long), le GS nous informe que 
le compilateur est charge et qu'il s'occupe de 
EX01.C Un temps certain, et on ajoute que la 
compilation est terminee et que le LINKER en est 
d sa premiere passe. 

Une deuxieme passe et e'est fini : le programme 
se charge et s'execute, devant nos yeux eblouis, 
les mots magiques Hello GS Good-Bye APPLE II 
viennent de s'ecrire en blanc sur fond bleu. 

Ouf ! le temps d'ecrire a notre vieille mere que 
nous parlons le LANGAGE C , de faire fondre 
une plaque de bronze "Programmeur Profession- 
nel" pour mettre devant notre porte et on essaie 
de comprendre ce qui s'est passe. 



COMMENT C 



Je vois des individus (toujours les memes) qui 
pretendent qu'en BASIC APPLESOFT... 

C'est la derniere fois que j'admets une interrup- 
tion : il ne faut comparer que des choses compa- 
rables : BASIC APPLESOFT est interpret^ e'est- 
a-dire que quelque part, cache dans des ROMS, 
se vautre un gros programme qui vient traduire 
mot a mot, et au fur et a mesure de leur execu- 
tion, les lignes de voire programme. C est au 
contraire compile : la traduction est faite une 
fois pour route en langage machine par un 
esclave docile : le compilateur. fs uite page 16) 
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Le compilafeur genere un code {le code objet) 
contenant la traduction de votre programme et 
faisanf appel 6 des sous-programmes exterieurs 
(dans notre cas la fonetion PRINTF) ; le LINKER 
(editeur de liens en franc,ais) cree un code EXE- 
cutable en liant le code objet el des modules 
extraits d une LIBRAIRIE. 

Une telle methode est contraignante au niveau 
du developpement ■ chaque fois que Ton chan- 
gera une instruction il faudra recompiler et relin 
ker le programme, mais le gain en rapidite 
d'execution est considerable. De plus, !e pro- 
gramme source est entierement controle par le 
compilateur (notons qu'en C le controle syn- 
taxique est plutot reduit). 

Autre avantage, les utilisateurs finaux n'ont pas 
acces au listing de votre programme et ne peu- 
vent done pas y effectuer des modifications 
dangereuses, 

['utilisation d'un LINKER vous permet egalement 
de Her des programmes ecrits dans des langages 
differents : C , PASCAL ou AS5EMBLEUR et de 
construire un programme par petits modules que 
vous LINKerez d la fin. 



OUAND C Oil C ? 



LAI 



Le langage C n'est pas une nouveaute : Dennis 
RITCHIE a ecrit le premier compilateur en 1972 
(le BASIC date de 1964). 

Au depart, C devait faci liter I'ecriture des com- 
pilateurs ou des systemes d'exploitation dordi- 
nateurs puissants genre PDP 11 de DIGITAL 
(UNIX est pratiquement entierement ecrit 
en € ), mais son implantation sur les petits 
systemes 16 bits I'a rendu extremement popu- 
late parmi les developpeurs IBM ou MAC- 
INTOSH. II ne fait pas de doute que son introduc- 
tion sur la nouvelle generation APPLE IIGS va 
renouveler le type d'applications disponibles. 
Un ou deux compilateurs existent egalement sur 
I' APPLE If (AZTEC), mais leur interet est surtoui 
d'ordre pedagogique. Ne vous precipitez pas pour 
acheter la version actuelle du compilateur : la pro- 
chaine sera sans doute plus "USER FRIENDLY". 
Rongez votre frein, nous allons en rester la pour 
cette fois. Mon prochain article decrira le lan- 
gage C du point de vue des objets manipules 
(variables) et des structures... Bon courage ! 

Claude flUBRV. 



BJJ 



Micro- 
eJeme 



n 



cdeAaz 

par Bryan Co stales 
EYROLLES editeur 

Nous ovons recemment ecrit (page 
40 du n°13 de Tremplin Micro) 




tout le bien que nous pensions 
d'un excellent ouvrage de Robert 
J. Traister : DU BASIC AU LAN- 
GAGE C (intereditions). 

C de A a Z. de B. Cosiates merit e 
les mimes eloges, meme si les 
exemples donnes ne se revelent 
pas toujours aussi portables qu on 
le souhaiterail... sur le GS. 

Les bases, conseils, principes 
generaux de la programmation 
en C restent valables. Aussi en 
conseillons-nous la lecture (et 
meme I'etude) a celles et a ceux 
que le C interesse. 

NESTOR. 



ft PROPOS DU LANCACE C 

Pratiquer le langage C sur un IBM 
PC (ou sur un compatible) est 
chose relativement facile. Lo "lit- 
terature" est abondante est les 
programmes en C merveilleuse- 
ment portables (avec les reserves 
d usage !). 

W l l l W fmW llWIMMtlllMMMIlMlMmMMHMlMMWMWiWIlM 



Avec I Apple IIGS, e'est une autre 
histoire. La documentation gene- 
rale est prometteuse, mats en 
anglais (defaut redhibitoire pour 
bon nombre de nos compatriotes). 
De plus, elle ne fournit aucun 
exemple. Elle se revel e done 
lamentable a I'usage. 

C'est pourquoi japprouve sans 
reserve I'initiative de Guy- 
Hachette et souhaite qu'il reus- 
sisse, grdee au concours de pro- 
grammers (et pedagogues) aussi 
qualifies que Claude Aubry et les 
autres, a decomplexer les Apple 
maniaques et a les orienter vers 
le C- 

En attendant le Super Basic, C : la 

solution ! 

Clement RENARD. 
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int x r n 

NB: 

prlntf 

scanf 

%d 

&n 
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LANGAGE C SUR APPLE IIGS 



NESTOR — EXERCICE 1 



Le bon nombre 



ir 
11 
ir 
}■ 



BASIC 



Micro-programme 
eJementaire. 



10 X = 69 

20 PRINT "TROUVEZ UN NOMBRE COMPRIS ENTRE 1 ET 100 -» " 
30 INPUT ";N 

40 IF N = X THEN PRINT "CEST LE NOMBRE - TERMINE": END 
50 IF N < X THEN PRINT "II EST TROP PETIT": GOTO 20 
60 IF N > X THEN PRINT IL EST TROP GRAND": GOTO 20 



ir 



8- 
)■ 
si 



mam( 
e 



int x, r>; 
x = 69; 
NB: 



EQUIVALENCE EN LAN CAGE C 



printff TROUVEZ UN NOMBRE COMPRIS ENTRE 1 ET 100 -» ") 
scanf("%d", &n); 
if (n — — x) e 

printf("CEST LE NOMBRE - TERMINER'); 
exit (0): 

e 

if (n < x) e 

printf("IL EST TROP PETITcn"); 
goto NB: 

e 

if (n > x) 

printf("IL EST TROP GRANDgn"); 
goto NB; 



9. 



TE 



lltt X,n Les variables x et n son! declares comme 
entieres. 

Etiquette utilisee par goto. 
pHfltf Affiche le message. 
SCdflf Apres scant il faut un RETURN. 

Indique que la variable 6 afficher est entiere. 

Une variable numerique doit etre precedes 
du signe &. 



MMmmmn 
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Notez la difference entre I'operateur d'affec- 
tation ( - ) et I'operateur d'egalite ( = = ). 

n x — I 

j Utilisation identique 6 celfe du Basic. 

90 tO NB Renvoie a I'etiquette NB, 

Gilt (0) L'argument n'a generalement pas d'im- 
portance. 

NE PAS CONSIDERS CET EXERCiCE! COMME UN i'B0N| EXEMPLE Df PROORAMMADON EN C ! 
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GRAND CONCOURS APPLE-VERSION SOFT 



COMMUNIQUE 



Cagnez un Apple, 
gagnez I'Amerique, 
devenez auteur version soft ! 



APPLE COMPUTER FRANCE et VERSION SOFT, i'un des plus grands editeurs de logiciels professionnels sur 
Apple, laneent un grand concours pour I'attribution des prix : "Les fruits d'une passion 1987". 

Cinq prix recompenseront les cinq meilleurs projets de developpement sur Apple IIGS ou Macintosh et seront attri 
bues pour la premiere fois en octobre 1987. Un jury de professionnels selectionnera les concurrents et designera 
les cinq laureats. Ceux-ci recevront un Apple IIGS ou un Macintosh Plus. De plus, I'outeur du projet le plus original 
se vera offrir une semaine a Cupertino dans la Silicon Valley, ou il sera pilote par Luc Barthelet. 

Version Soft pourra proposer aux Guteurs des cinq meilleurs logiciels un contrat d edition et de commerciali- 
sation etabli selon les usages de la profession. 

Auteurs de logiciels, comme Luc Barthelet responsable developpement, visei juste, visez la pomme et vivez 
en Version Soft. Reclamez voire dossier de candidature a : Fabienne Poupard VERSION SOFT 94, rue Lauriston 
751 16 PARIS - Tel. : (161) 47.27.71 .72. 



LE REGLEMENT 



1. LES CONCURRENTS 

Ce concours est ouvert d toute personne non liee par un contrat addi- 
tion. Il sultit pour parliciper de rertvoyer une liche description 
dumenl remplie, accompagrtee du dossier de candidature. Les projels 
de developpemenl peuvent elre efiectues en equipe. En cos de selec- 
tion , le prix sera atthbue 6 son represenlont. 

2. LES PROJETS 

Le* projets remis a Version Soft peuvent porter sur tous les domaines 
d'opplicalions. qu'ils soient horizonlaux ou sectoriels. Les logiciels 
peuvent etre developpes sur Apple IIGS ou Macintosh en longage 
Pascal, C ou assembleur, lis devront respecter l interface Apple 
(menus deroulanis, souris...}. 

Sen* pou' aulant constituer une liste limitative les oxes suivanlssont proposes 

• didocticiels professionnels • edition electronique 

• aide 6 la decision • gestion generate 

• slructuration des donnees ■ gestion sectorielle... 

Le jury sera sensible d la creativite, d la puissance et d la convivialite 
des projels presemes. 

3. LE DOSSIER DE CANDIDATURE 

Le dossier de candidature doit obligatoirement com porter 

• une f iche description dument remplie et signee 

• un texte de presentation du logiciel [1 pages maximum) 

• la liste complete des fonctionnalites 

• une disqueMe de preversion comportont le noyau du programme. 

Ce dossier, rempli et complete par les documents demondes ci- 
contre, en deux exemplaires, est d odresser d . Fabienne Poupard 
VERSION SOFT. 94. rue Lauriston 75116 PARIS. 

A. LA DATE LI MITE DE DEPOT DES PROJETS 

lo dole limile de depot des projets est fixee au mercredi 20 mai 1987 
a minuit, lo cachet de la paste faisant foi. 



5. LEX AMEN DES DOSSIERS 

Le jury selectionnera les vmgt meilleurs projels avant le lundi 1" juir> 
1987 et en informera les auteurs. Ces vingl dossiers selectionnes 
benef ideront d'un support technique developpeurs Apple ef Version 
Soil, ofin de pouvoir poursuivre leur developpement jusqu d lo phase 
finoiede selection des cinq laureots. 

Le 15 septembre I9fi7 au plus tard. les vingl candidats devront remet- 
tre d Version Soft leur programme occompagne d'un synopsis de 
demonstration. Ne seront pris en compte que les projets qui permet 
Iront une utilisation du logiciel par une personne exterieure ou deve 
loppement. Parmi ces vingt logiciels, le jury en seletlionnero cinq, 
donl les auteurs seront nommes laureats du concours "les fruits 
d'une possion 1987"' 

6. LA REMISE DES PRIX 

Les candidats choisis par le jury seront inforrnes par courrier au plus 
tard le 1*' octobre 1987, Les prix leurs seront remis officiellemem au 
cours d une manifestation organ isee courant octobre par Version Soft 
et Apple dans le cod re d Apple Expo 87. 

7. LE JURY 

1 1 sera compose de : 

- Denis VINCENTI . 

- Luc BARTHELET 
Patrick ARNOUX 
Yves HEUILLABD 



TF1 

Version Soli 
Challenges 
Sciences et Vie Micro 



— Neil MINKLEY Apple Computer France 

— Christian ROBERT Microshop 

8. LE 5UIVI DES LAUREATS 

Un control d auteur sera propose par Version Soft aux cinq loureois. 
Il sera etabli selon les usages de la profession Les laureats fecevront 
un soutien permanent de Version Soft jusquo la commercialisation 
de leur logiciel . ■ 
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TREMI 



EDUCATION 



Ouand nos amis 
beiges nous donnent 
des lemons de logique 




GRAND- HOR NU 
IMAGES 

•sit 

PROVINCE □£ MAINAUT 



A 



J'AVOUE avoir ete agreablement 
surpris par la qualite de ce 
£J logiciel mis au point par des 
enseignants et des informaticiens. 
Je m'attendais a quelque banalite sans 
grand interet : c'est souvenf le cas, 
dans ce domaine, et pas seulement en 
Belgique ! 

L'objectif des auteurs est de faire 
appel aux facultes de raisonnement de 
.'enfant, mais I'adulte au cerveau 
ramolli que je suis, s'est beaucoup 
amuse avec Jes locomotives et les 
wagons de CON VOL 
C'est en effet le titre de cette serie. 
L'enfant travaille dans une gare de 
triage ou, a I'aide d'une locomotive — 
et en s'aidant d'un aigulllage — il doit 
ranger des wagons numerotes dans un 
ordre croissant. 

Au debut de chaque jeu r les wagons 
sont places dans un ordre afeatoire. La 
suite coule de source, mais comme il 
existe plusieurs niveaux, ce n est pas 
toujours aussi simple qu'on pourrait le 
supposer ! 

A recommander ! NESTOR. 



ASBL GRAND-HOftNU IMAGES, flu* Sainte- Louisa 
B 7320 BOUSSU — Tml, - (0*5) 33.9I.St. 



Configuration nocottair* : 

- un micro ordinateur APPLE modele II Europlus 48 KRAM minimum, Jle 
ou lie; 

- un lecteur de disquettes 5 pouces 140 K octets , 

- un moniteur video monochrome 

Note* : 

- le moniteur video monochrome peut etre remplace par un moniteur 
video couleur Toutelois, le logiciel n est pas prevu pour utiliser correc- 
tement Jes ditferentes couleurs ; 

- pour impnmer Ja trace (voir explication plus loin), f ordinateur doit etre 
connecte a une imprimante (minimum 80 caracteres par ligne) 




— S ( 

Ce* illustrations, oxtraito* du potit livret occompognonf l*f logiciel. ne 
donnent qu'uno faihlo idee do to qualite {oxco!l»nta} d&s imag&s 
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Votre bibliotheque 
INFORMATIQUE 



• FRAMEWORK I & It FACILE 
(Philippe Mercier) 

Co petit guide Marabout vous fera 
decouvrir I'un des best-sellers de 
I'informatique. Framework, logiciel 
integre de reputation mondiale, est a 
la fois traitement de texte (avec cor- 
recteur orthographique), tobleur, base 
de donnees, logiciel de telecommuni- 
cation , composeur telephonique, etc, 
Les utilisateurs d'IBM et compatibles 
en savent quelque chose. 

Editions Marabout 192 pages 



: LES BEST- SELLERS 
DE L'INFORMATIQUE 

FRAMEWORK 



Facile 



^anm»»« uMaaMJ mm — WbM 

vjctvr Ctf»W 0Mf IT?- 



• LA PUCE ET LA PLUME 
(Jean Rivier) 

Comment se comporte I'ecrivain en 
presence de la Bete ? A-t-il reussi 6 
la domestiquer ? Quels sont les 
resultats de cette collaboration de 
I'esprit et du microprocesseur ? Lisei 
d'abord l excellente preface de Louis 
Leprince-Ringuet : elle vous tou 
chera, j'en suis sur, for de Nestor ! Et 
puis, delaissant momentanement 
votre clavier et vos propres elucu- 
brations, plongez-vous dans celles 
des autres. J'aurais du vous le preci- 



I'ordinateur et fecnvain 





5- 



ser d'entree : ce livre est une antholo- 
gie reunissant les morceaux choisis 
d'un nombre incroyable decrivains, La 
liste commence par Therese de Saint- 
Phalle et se termine par !e nom d'un 
monument ; la Bible, ou Ton en evoque 
un autre, la Tour de Babel, le plus bel 
exemple d'une communication passant 
par un langage unique. On imagine 
mal I'ecrivain de demain, arme de so 
seule plume ! 

Le Cherche Midi Ediievr, 

63, Rue du Cherche-Midi.. 75006 PARIS 
240 pages 68FTTC. 

• CD ROM 
LE NOUVEAU PAPYRUS 
(Bernard Pros!) 

Le compact-disque, cela vous dit 
quelque chose ? Vous y croyez ? 
Qu en attendez-vous sur voire ordi- 
nateur personnel ? Sans doule vous 
posez -vous, comme moi, de multi- 
ples questions sur ce nouveou 
moyen de stock age. 
Suivez done Bernard Prost et faites 
avec lui le tour de la question. Je 
vous previens : ca ne se possera pas 
sans quelques heures de veille. On 
n'assimile pas le contenu de 440 pa- 



par NESTOR 

ges en se contentant d'un survol 
rapide de I'ouvrage. Vous reconnaT- 
trez que le CD ROM est tres different 
des autres medias (television, 
cinema, video, photo, livres, disques 
et disquettes), Cest en quelque 
sorte la somme de toutes ces techno- 
logies. Les capacites de stockage du 
CD ROM sont mille fois superieures a 
celles de la disquette, pour des coGts 
pratiquement equivalents. Le livre 
de Bernard Prost regroupe une 
somme d'articles dont les auteurs, 
con va incus des possibilites du 
compact-disque, sont tous impliques 
dans cette nouvelle technologic lis 
sont done bien places pour expliquer 
clairement ou en sont les recherches 
et dons quelles voies elles se 
dirigent* 

A signaler que la premiere partie de 
CD ROM est consacree aux proble- 
mes techniques ; systeme CD, pro- 
duction, elements de conception, 
edition sur CD ROM, tandis que la 
deuxieme portie, moins abrupte, 
aborde les problemes humains, les 
projets, le marche et un certain nom- 
bre ^applications plus ou moins 
prioritoires (medecine, droit, archi- 
vage, recherche, etc.). 

Cedic Nathan — Microsoft Press 

6. boulevard Jovrdan, 750)4 PARIS 
440 pages — 280 F 7TC 
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UT1LITAIRE 



Marcel COTTINI 



PATCH DOS 



Lisez d'abord 

le commentaire de Marcel COTTINI 



mf is uratii 



35/40/80 pistes est alors requis (type TEAC FD55F par exemnle 



Tout Apple //, avec une RAM de 64 Ko ou plus, et le DOS 3.3 
boote. Un lecteur de disquettes standard du type Disk II. Pour 
une exploitation complete du patch, un lecteur de disquettes 



A propos du DOS 3.3 et de ProDOS 



Le DOS 3.3 par comparaison a ProDOS, dernier 
systeme d'exploitation commercialise par Apple 
Computer, demande d etre patche pour modifier 
une de ses commandes ou encore lui adjoindre une 
commande externe. Le systeme d'exploitation Pro- 
DOS initialise, lors du boot d une disquette sys- 
teme, deux pages tres particulieres : 

* Tune, la PRODOS Global Page aux adresses 
SBFO0-$BFFF ; 

• l autre, la BASIC Global Page aux adresses 
$BE0Q-$BEFF. 

Cette derniere est porticulierement adoptee pour 
le programmeur Applesoft, et autorise par I'inter- 
mediaire du vecteur $BE06 I'appel dune commande 
externe au Basic System. Le fichier BASICSYSTEM, 
interface entre PRODOS et I'interpreteur Apple^ 
Soft, contient un certain nombre destructions 
standards implementees d'origine par le concept 
teur. A ces commandes internes, le programmeur 
peut par l intermediaire de la BASIC Global Page, 
ajouter une ou plusieurs commandes externes, le 
systeme effectuant alors I'execution de cette com* 
mande suivant un protocole etabli au prealable. 
Cette innovation n'est malheureusement pas pre* 
sente dans le DOS 3.3 qui semble molgre tout tres 
present dans les realisations diffusees par les 
revues special'fsees, Tremplin Micro entre autres. 
Tout au long de sa longue carriere, le DOS 3.3 a 
connu un certain nombre de modifications. L'appa- 
rition de I' Apple lie (debut 1983) a provoque un 
bouleversement profond tant au niveau du Soft 



que du Hard. Ce fut la vague des patches du DOS 3.3 
sous toutes ses formes possibles et imaginables. Cer 
tains programmeurs ayant fait I'acquisition de lec- 
teurs de disquettes 35/40/80 pistes resterent sur leur 
faim, les programmes utilitaires ayant ete largement 
delaisses, C'est ainsi que prit forme le projet de reoli- 
ser mon propre systeme d'exploitotion avec des utili- 
taires s'y rapportant. Le resultat se concretise par un 
DOS reecrit et reassemble, en gardant les adresses 
d'entrees/sorties compatibles au DOS 3.3. Par la 
suite, certaines idees de base furent reutilisees pour 
patcher le DOS 3.3. 

PA TCH DOS est un programme en Basic Applesoft 
pour ceux qui pratiquent I'Apple (/sous le langage 
AppleSoft, et permet d'apporter au DOS 3.3 certai- 
nes ameliorations spectaculaires, ne serait-ce 
qu'une presentation personnalisee du catalogue de 
la disquette (une version en langage machine sera 
presentee dans un prochain numero). Par ailleurs, 
toute une serie de modifications internes seront 
realisees, une fois le programme execute. Par la 
suite, toute explication sera fournie pour une meil- 
leure comprehension de certains mecanismes du 
systeme d exploitation. 

Ce patch pourra etre realise avec la plupart des 
DOS commercialises, et vous permettra de travail- 
ler par la suite avec des disquettes 35, 40 ou 80 pis- 
tes, sans aucune precaution prealable. Votre nou- 
veau systeme est maintenant capable de reconnoi- 
tre les differents formats. (suite page 22) 
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Modifications internes effectives au DOS 3.3 



Keyboard intercept — $9002 



Drive Range ERROR — SA95B 



Adresse de fa routine d'entree de coractere, 

A I'adresse $9D02 se trouve normalement le poin- 
teur de la routine d'entree de coractere au clavier, 
Sa valeur pour un DOS 3.3 est $9E81 ($9D02- 81 9E). 
L'auteur a uniquement tenu a respecter la valeur 
du pointeur pour observer une certaine compatibi- 
lity avec d'autres systemes. 

Video input Handler — $9004 

Adresse de la routine de sortie de coractere. 

A I'adresse S9D04 se trouve normalement le poin- 
teur de la routine de sortie de coractere. Sa valeur 
pour un DOS 3.3 est S9EBD (S9D04- BD 9E). Comme 
pour la routine Keyboard Intercept, ce vecteur est 
mointenu pour respecter une compatibility avec 
d'autres systemes. 

Elimine lo commands INIL 

A partir de I'adresse S9D1E debute la table des 
pointeurs des commandes du DOS. La commande 
INIT se trouve en tete de la table ($9D1 E- 4E A5). 
Pour rendre cette commande inefficoce, le poin- 
teur de la table est modifie, et se connects par la 
suite a I'entree du demarrage a chaud dans le 
systeme. Lentree DOS WarmStart se trouve a 
I'adresse S9DBF. Le nouveau pointeur aura comme 
voleur : nouvelle adresse -1 ($9D1E- BE 9D). Une 
autre modification est rendue necessaire pour 
annuler les codes ASCII dans la table nominative 
des instructions du DOS ($A884-SA908). La com- 
mande INIT est representee par les codes ASCII 
suivants : 

A884-49 4E49D4 INIT. Le dernier coractere de 
chaque instruction a son bit 7 
egal a I, les autres caracteres 
ont le bit 7 egal a zero. 

Apres modification, les caracteres ASCII seront les 
suivants : 

A884- 58 58 58 D8 ;::X, Les trois premiers caracte- 
res (:) sont neutres, pas de 
coractere alphabetique, le DOS 
se trouve ainsi piege, 

Apres chaque appel de la commande INIT, un 
demarrage d chaud sera effectue dans le DOS, au 
retour un message d erreur aff iche\ 

flfllllfllMfUlllfllllllflfflllllUlflfflllllfllllfll 
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Extension du nombre de drives a 4. 

D'origine, le DOS 3.3 limite a deux (00 02) le nom- 
bre de drives pouvant etre raccordes a une inter- 
face controleur. Un lecteur de disquettes standard 
Disk II possede une tete de lecture, ecriture unique 
situee en dessous de la disquette. 
Un lecteur de la nouvelle generation possede deux 
tetes de lecture, ecriture, un adressage particulier est 
alors requis. Chaque drive de ce type est vu par le 
systeme comme un ensemble de deux lecteurs bien 
distincts. Equipe d un tel drive, il vous sera possible 
d'utiliser I'option D (drive) d'une fa^on particuliere. 

Nouvelles coracteristiques d'un tel drive : 

• Deux drives peuvent etre raccordes par interface ; 

• Choque drive sera vu par le systeme comme un 
ensemble de deux lecteurs ; 

• Le lecteur 1 sera adresse Dl pour sol Mciter la tete 
du bas, et D3 pour la tete du haut ; 

• Le lecteur 2 sera adresse D2 pour sol Mciter la tete 
du bas, et D4 pour la tete du haut, 

Cette modification est realisee au niveau du DOS 
en modifianl le byte a I'adresse $A95B ($A95B-G4). 
Aux adresses $A955-$A97Q se trouve la table des 
valeurs des parametres additionnels valides. Qua- 
tre bytes sont reserves pour chaque parametre : 
deux bytes pour la valeur mimmale et deux bytes 
pour la valeur maximale. Cest ainsi que les para- 
metres reserves au drive se trouvent aux adresses 
$A959-A95C. 

Valeurs pour un DOS 3.3 : 

$A959- 01 00 LByte, HByte de la voleur mini (00 01) 
$A95B- 02 00 LByte, HByte de la valeur maxi (00 02) 
Valeurs apres modification : 
$A95B-04 00 LByte, HByte de la valeur maxi (00 04) 

35/40/80 Tracks — $BEAF 

Extension du systeme, troite par la suite 
des disquettes 35/40 ou 80 pistes, 

Le DOS 3,3 gere par defaut des disquettes forma- 
tees 35 pistes, les autres formats n'etant pas recon- 
nus. A partir de l adressage SBEAF se trouve la rou- 
tine de formatage integree ou DOS 3.3. L'espace 
memoire $BEAF-SBFB3, reserve normalement pour 
la routine de la commande INIT, sero remplace et 
mis d profit pour y placer une nouvelle routine. Une 
fois en place, le systeme reconnaitra et traitera par 

>mmmmmMmmmMmmmmmmmmmmmmmmmmBBmmmmmmmmmmmmmmmmmmmmm 
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la suite toute disquette avec un format 35/40 ou 80 
pistes. Toutes les routines et sous-programmes 
appelant cette partie du DOS, eeriture ou lecture 
d'un secteur au niveau de la disquette par exem- 
p!e, seront traitees sans probleme. 
Drfferents vecteurs annules de la fonction INIT : 
SBEAF-SBFOC Gestion de la commande INIT 
S6F0D-$BF61 DISKF2. Routine de formatage de la piste 
courante. 

$BF62-$BF87 NXTSEC. Verification de la piste formatee. 
$BF88-$BFA7 MARKMAP. Mise a jour de la Bit-Map dis- 
quette. 

SBFA8-SBFB7 SECMAP. Matrice pour marquer la Bit-Map. 



Allocate sector Disk — $B247 

Allocation des secteurs dune dhquetfe. 

Modification des adresses $B247-$B2B4 pour per- 
mettre au systeme de gerer les pistes comprises 
entre 00-79 inclus (80 pistes). A ces adresses se 
trouve la routine d'allocation du numero du secteur 



de la disquette. Apres le patch,, il sera possible de 
traiter une disquette 80 pistes, le format 35 ou 45 
pistes reste accessible. 



N€W IfTQC - SB2P2 

Not/retie VTOC (35, 40 ou BO pistes). 

La table d'occupation dune disquette standard 
autorise la gestion de 35 pistes sur une disquette 5 
pouces 1/4. A cet effet, certains octets sont reser- 
ves dans la Bit-Map, piste $1 1 (17) secteur $00 de la 
disquette. 

Volume Table Of Contents — VTOC : 

La Vtoc (Volume table Of Contents) ou table d'occupa- 
tion de la disquette, permet de gerer les secteurs et 
les pistes de la disquette (Bit-Map), ainsi que I'e^cri- 
ture d'un certain nombre de donnees et reperes utiles 
pour la lecture et lecriture d'un secteur. Elle occupe le 
premier secteur ($00) de la piste Si 1 avec un total de 
256 bytes. Les valeurs stockees dans la Vtoc sont en 
base 16 ou hexadecimal. (sua* page 24) 





Structure d une volume Table Of contents standard 


POS- 


Valeur 


contenu 


DOS 


$00 


$04 


Inutilise. 


SB3BB 


$01 


Si l 


Piste du premier secteur catalogue. 


$B3BC 


$02 


$0F 


Numero du premier secteur du cotologue. 


S B3BD 


$0 3 


$03 


Version du DOS (3 pour un DOS 3.3}. 


$ B3BE 


$04-$Q5 




Inutilises. 




$06 


SFE 


Numero du volume de la disquette (entre et 254 ou $00 et $FE). 


$B3C1 


S07-S26 




Inutilises. 




$27 




122 secteurs maximum dans une liste d adresses (Tracks Sectors 




$7A 


List - TSL) des secteurs occupes par un fichier. 


$B3E2 


$28-$2F 




Inutilises. 




$30 


$FF 


Derniere piste ou des secteurs ont ete alloues. 


$ B3EB 


S3) 


$FF 


Direction de I'atlocation des pistes (+1 ou -1). 


$B3EC 


$32-533 




Inutilises. 




$34 


$2 3 


Nombre de pistes ($23 = 35 pistes). 


SB3EF 


$35 


$0F 


Nombre de secteurs par piste {16}. 


$B3F0 


$36 


$00 


Nombre de bytes par secteur - 256 - $100 (MByte). 


SB3F1 


$37 


SOI 


(S36-S37 octet poids faibfe et poids fort). 




S38-S3B 




Occupation de la piste 00 ($00). 


$B3F3 


$3C-$3F 




Occupation de la piste 01 ($01). 


$B3F7 


_$40-$43 




Occupation de la piste 02 ($02). 


$ B3FB 


















$C0-$C3 




Occupation de la piste 34 ($22). 


SB47B 


$C4$FF 




Inutilises, pouvant servir a ( extension de la Bit-Map. 
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Vtoc typique d une disquette DOS 3.3 standard : 
Piste $11 Secteur' 



(ICS 


y i 


1 1 


OF 


03 


00 


00 


FF 


00 




ft 

Oa — 


n n 


ftrt 

QQ 


00 


00 


00 


00 


00 


00 




I u — 


00 


09 


00 


00 


00 


00 


00 


00 




1 Q 



n a 


UV 


00 


ftft 


ftft 

00 


ftft 

00 


u 


ftn 
00 




in 


n n 


ftji 

uo 


00 


00 


00 


00 


00 


7 A 




*>a 
40 — 


J 'J 


n n 


rr n 

00 


00 


00 


00 


•0 


00 




on 

JO — 


1 J 


ft 1 

u 1 


ft ft 

00 


00 


23 





n n 

pa 


'J 1 




38 - 


oa 


00 


00 


00 


00 


00 


00 


00 


Pistes 00 et 01 


a n 

4\J — 


n n 
00 


00 


ftft 

00 


ftn 

00 


FF 


FF 


00 


00 


Ptstes 02 el 03 


ill 


FF 


FF 


00 


00 


f F 


FF 





00 


Pistes 04 et 05 




C £ 

Pf 




ftft 

00 


00 


FF 


FF 





00 


Pistes 06 et 07 


58 — 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 08 et 09 


60 - 


FF 


FF 


00 


00 


FF 


FF 





00 


Pistes 10 et 11 


68 — 


FF 


FF 


00 


00 


FF 


FF 


Q J 


00 


Pistes 1? et 13 


in 

70 — 


FF 


F F 


00 


00 


FF 


FF 


00 


00 


Pistes 14 et 1 5 


78 - 


FF 


FF 


00 


00 


FF 


FF 


'0 


00 


Pistes 16 et 17 


80 - 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 18 et 1 9 


88 - 


FF 


Ff 


00 


00 


FF 


FF 


00 


00 


Pistes 20 et 21 


90 


FF 


FF 


00 


00 


FF 


F F 





00 


Pistes 22 et 23 


98 - 


FF 


FF 


00 


00 


FF 


FF 





00 


Pistes 24 et25 


AO- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 26 et27 


A8- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 28 et29 


60- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 30 et 31 


88 - 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


Pistes 32 et33 


C0- 


FF 


FF 


00 


00 


00 


00 





00 


Pistes 34 


C8- 


00 


00 


00 


00 


00 


00 


00 


00 


Inutilises. 


00- 


QTO 


00 


00 


00 


00 


00 





00 




D8- 


70 


00 


00 


00 


00 


00 


00 


00 




E0- 


oc? 


00 


00 


00 


00 


oa 


00 


00 




E8 - 


oa 


00 


00 


00 


GO 


00 


00 


00 




FO 


09 


00 


00 


00 


00 


00 


B 


00 




F8 - 


00 


00 


00 


00 


00 


00 


00 


00 





Occupation des secteurs — Bit-Map : 
Initialement, 32 bits etaient reserves pour I'enco- 
dage de cbaque piste, ce qui representor loccupa- 
Hon de 16 secteurs, Uniquement 16 bits sont utili- 
ses, les 16 autres etant simplement ignores par Je 
DOS 3.3, Les bits representors sont regroupes par 
ensembles de deux octets, ou 2 X 8 bits. Chaque 
octet est divise en demi-octets (quartet ou nibble) 
pour coder un groupe de 4 secteurs. 

Exemple d'-sncodcge d une piste — Secteurs $00-$0F : 
Secteurs : FEDC BA98 7654 3210 
Bits : 7654 3210 7654 3210 
Valeur possible des bits : soit 1, soit 0. 

Cbaque bit positionne a 1 represente le secteur 
concerne comme libre, tandis que chaque bit posi- 
tionne a indique que le secteur equivalent est 
occupe. Pour gerer I'occupation des 80 pistes, if 
sera necessaire d'etendre la table d'occupation, et 
d'utiliser les 16 bits ignores par le DOS 3.3 jusqu'd 
present. Le contenu des odresses $B2D2-$B2F7 sera 
modifie a cet effet. 



Table 4 Foce B dUquette — $BD04 

Reconnaissance de fa face A ou de to face B (disquette). 

Une disquette standard 35 pistes est lue par la tete 
de lecture suivant un protocole bien defini : Phase 
"on" ou "off", mode lecture ou ecriture, positionne- 
ment du bras de lecture au dessus de la piste et du 
secteur souhaite, etc. 

La modification actuelle outorise par la suite une 
extension du protocole fixe initialement : la selec- 
tion de la tete de lecture ecriture du haut ou du 
bos (01, D2 pour le bos ou D3, D4 pour le haut). Les 
adresses modifiees sont : $BDG4-$BD4E. 

MY SEEK FARMS — $BE5A 

Prepare te systeme avant de solllclter SEEKABS (SB9A0/). 

Modifie 17 octets ($BE5A-$BE69) pour rendre le 
systeme compatible suivant lo disquette presente (35, 
40 ou 80 pistes). Cette routine deploce le bros de lec- 
ture au dessus de la piste souhaitee. Elle determine le 
nombre de "Phases" par piste et sauvegarde I'infor- 
motion a I adresse du slot correspondent. 

Recalibrate Disk Heod — SBPOi 

Recah'bre fa tete de lecture dv drive. 

Les adresses $BDD1-$BDD6 sont modifiees, et appel- 
ant par lo suite les sous-programmes correspondant 
suivant les nouveaux pointeurs mis en place. 

Patch en- tete du catalogue __ 

Gestion de la command? CA TALOC, 

Plusieurs modifications sont effectuees a ce 
niveau. Le resultot personnolise la presentation du 
catalogue de la disquette. C'est ainsi que les nume- 
ros du volume et du drive, le format de la disquette 
(35, 40 ou 80 pistes), et !e nombre de secteurs 
fibres sont affiches avant la liste des fichiers de lo 
disquette. 

Exemple de presentation d une disquette : 











VOL 


DRIVE 


TRACKS 


FREE 


254 


001 


035 


0050 



Modification des different* vecteurs : 
$ADA3-$ADBD Mise en place du texte de presentation. 
$AE6A-$AEAF Appel des sous-programmes de I'affi- 

chage des valeurs : VOL, DRIVE, 

TRACKS et FREE. 
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$AEB0-$AF09 Routine de calcul des secteurs libres. 

$B3AF-$B3B5 Initialement reserve au texte : EMULOV KSID. Comporte maintenant deux sauts de ligne. 



Soft utilitaires 15/40/80 pistes 

Pour les detenteurs de lecteurs de disquettes capa- 
bles de trailer des disquettes 35/40 ou 80 pistes 
sous DOS, f'auteur envisage par la suite la vente 
par ('intermediate de Tremplin Micro, d'une dis- 
quette utilitaire oppropriee. 
A cet etfet, les amateurs d'un tel Soft devront se 
fa ire connaTtre aupres de Tremplin Micro pour une 
eventuelle souscription de la disquette UTILITAIRE. 
Prix de vente conseille : 150 Francs. 



TREMPLIN MICRO - Lo Petite Morte - Senilis - 86100 CHATELLERAULT 



36 


TEXT : 


HOME : U 


TAB 


12: HTAB 


12 
















B.iCC 


90 


FLASH 


: PRINT H 


PATCH EN 


COURS* : NORMAL 












527D 


100 


REM c t Jet JKEYBQRD 


INTERCEPT 


E t Jc t J 


















110 


HEX* = 


" 9D02:81 


9E 


" : GOS 


JB 


520: CALL 




1 44 








D5E6 


120 


REM ctJctJVIDEO 


INPUT HANDLERe t Jc t J 
















1 36 


HEX* = 


11 9D6 4 : BD 


9E 


" : GOSUB 


520 : CALL 




1 44 








6705 


140 


REM ctJctJNO INITr 


t Jc t J 






















150 


HEX* = 


" 90 1 E : BE 


9D 


N A8S4:53 58 58 D8" : 


GOSUB 


52* 




DAL 






L - 144 
























30 E7 


1 68 


REM c_t 


Jet J RANGE 


ERROR DRI'v-'Ec t Jc t J 


















170 


HEX* = 


"A95B:04 


" : 


GOSUB 


520 


: CALL 




] 44 










A255 | 


180 


REM c t Jet J 35/ 40/36 


TRACK 


3c t Jc t J 


















19M 


HEX* = 


" 8EAF : 9A 


20 


6B BE 


4E 


78 4 


4E 


73 


04 


60 


4S 


68 


43 






03 A2 


00 C9 28 


90 


2 A2 


02 


28 7E 


F2 


B5 


E3 


3A 


29 


1 


D8 






F7 CS 


CC F0 B3 


D6 


E5 68 


0A 


A2 02 


C9 


50 


90 


04 


E9 


50 


A2 






04 69 


01 0A AS 


BD 


Fl B5 


19 


F2 B3 


99 


F2 


B3 


33' 








F00E 


200 


GOSUB 


520 : CALL 




144 




















7C6F 


210 


HEX* = 


" BEF0 : CA 


8A 


29 e i 


D0 


F0 60 


B0 


EC 


E6 


44 


A5 


44 


C9 






2 3 90 


D3 18 90 


3 


4C 48 


BE 


36 48 


BD 


88 


C0 


60 


8 1 


01 


01 






00 4S 


AD F8 6 


4m 


90 30 


20 


40 BF 


D0 


16 


AD 


78 


04 


0A 


C5 






2E D0 


07 A9 01 


99 


0C BF 


D0 


1C A9 


01 


80 


F3" 


: GOSUB 


520 






: CALL 


- 144 
























M2B 


220 


HEX* = 


"BF30 :96 


D0 


15 A9 


50 


3D 78 


04 


A9 





20 


5A 


BE 


20 






4D BF 


A9 99 


0C 


BF 3D 


73 


04 A9 


60 


4C 


D4 


BD 


AS 


02 


Bl 






48 A3 


B9 0C BF 


60 


03 7S 


A9 


00 35 


45 


AD 


F6 


B7 


35 


44 


4C 






42 AE 


20 0C FD 


C9 


' : GOSUB ' 


520: CALL 




144 








BEDA 


2 30 


HEX* = 


M BF68:9B 


F0 


01 60 


68 


68 68 


68 


4C 


7F 


B3 




00 


35 






45 AD 


EA B7 85 


44 


4C 42 


AE 


00 00 




AD 


65 


BF 


3D 


90 


BF 






AA A9 


00 9D B8 


04 


20 3 


C4 


A2 02 


BD 


03 


02 


9D 


AE 


B3 


CA 






D0 F7 


A9 AD 3D 


Bl 


B3 A2 


02 


BD 04 


02 


9D 


Bl 


B3 


CA 


D0 


F7 






A9 AD 


3D B4 B3 


H 






















7265 


240 


GOSUB 


520 : CALL 




144 




















7C6F 


250 


HEX* = 


" BFB 1 :4C 


CS 


BF" : 


30SUB 520 : 


CALL 




1 44 






2AB5 




REM ct Jet JALLOCATE 


SECTOR DISKctJc 


_i'- T 










































(suite page 26) 
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Contenu de lo disquette UTILITAIRE 35/40, 80 TRACKS : 

• Patch pour modifier le DOS 3.3 ; 

• Patch pour modifier le PASCAL (160 pistes) ; 

• Patch divers pour accrottre la vitesse de traite- 
ment suivant le type de drive utilise ; 

• Patch de reconnaissance drive Disk II et TEAC ; 

• Patch pour modifier le programme de copie FID ; 

• Un programme de copie 35, 40 et 80 pistes ; 

• Un programme de formatage 35, 40 et 80 pistes ; 

• Conseils d'utilisalion. 



278 HEX* = "B247:F0 2A AD Fi B5 A2 08 C9 28 90 02 A2 92 CE 

F0 B5 36 15 18 3E F3 B5 3E F2 B5 90 F2 EE EE B5 D0 03 

EE EF B5 AD F8 B5 60 A9 00 8D Fl B5 A9 00 8D 9E B3 20 
F7 AF 18 AD EB B3 6D" : (30 SUB 520: CALL - 144 

288 HEX* = "B280:EC B3 F9 09 CD EF 83 90": BO SUB 520: CALL 
- 144 

290 HEX* = "B288:14 A9 FF D0 9A AD 9E B3 D8 2E A9 1 3D 9E 

B3 8D EC B3 18 6? 11 8D EB B3 8D Fl B5 y A A2 02 C9 5© 

90 04 EV 50 A2 04 69 81 20 E0 B2 90 06" i GOSUB 520: C 
ALL - 144 

300 REM ctJctJNEU MTOCc tJetJ 

310 HEX* = "B2D2:20 BA BE A9 00 8D Fl B5 4C FB AF 4C 

0A AS B9 F2 B3 9D Fl B5 F0 06 38 A9 00 99 F2 B3 
8A 29 01 D0 EB 60": GOSUB 520: CALL - 144 

328 REM cj.Jct.JIQB TABLE + FACE Be t Jet. J 

338 HEX* = "BD04:A0 4 8C F8 06 A0 4 8C F3 04 A0 91 

78 A0 0F 91 48 AA BD 89 C0 A0 02 Bl 48 A8 C9 03 

AC 00 C4 AC 00 C5 AC 00 C6 AC 00 C7 BD 8E C0 BD 

A0 12 BD 8C C0 48 68 48 68": GOSUB 520: CALL - 

340 HEX* = 1 BD3F : 8E F8 05 DD 8C C0 D0 03 88 D0 EE 68 
09 05" : GOSUB 520: CALL - 144 



BA BE 

88 CA 



Bl 48 
B0 QC 

ec ce 

144 
A0 06 



DA08 
B088 

D5A1 

1E18 



D597 
E412 



360 REM c_t Jc_t JMYSEEK PARMScjt Jc_t J 

370 HEX* = " BE5A : 0A 48 20 4D BF 6A 68 90 4C 28 6B BE 4E 78 

4 60 60": GOSUB 520: CALL - 144 
380 REM c t Jc t JRECAL I BRATE DISK HEADctJctJ 



470 REM c_tJcJtJLINE FEEDct Jet J 
480 HEX* = "B3AF:20 2F AE 26 2F AE i 
144 

490 REM ctoc cJFND PRQGRAMMct Jc t J 
500 TEXT : PRINT "ctGctGctG" : HOME 
510 REM c_tJc_tJSH. LAM ROUT I NEcJJcJJ 
520 HEX* = HEX* + " N D7D2G" : FOR I 



GOSUS 520: CALL - 



END 



= 1 TO LEN (HEX*) : PO 



KE 51 1 + I , ASC C 
72,6: RETURN 



MID* CHEX*,I,1)> + 128: NEXT 



POKE 



FE7A 



396 


HEX* = " BDD1 :4C 


1 1 


BF 20 


z «=; 


BE 


i ■ 


GOS 


LIB 


520 


s CALL 




14 






4 


























8053 


400 


REM PATCH ENTETE CATALOG 


ET 


MODI F I E 


PA RMS 












410 


HEX* = " ADA3 : A9 


16 


3D 9D 


B3 


20 


2F 


AE 


20 


2F 


AE 


A2 


1C 


BD 






E7 AE 20 C5 9F 


CA 


D0 F7 


86 


46 


4C 


8E 


AE 


1 : 


SOS 


JB 520 


: C 






ALL - 144 


























83D7 


420 


HEX* = " AE6A : A0 


2C 


20 08 


AF 


8E 


C5 


B5 


Bl 


42 


99 


Dl 


B5 


88 






10 F3 CS 13 60 


00 


A0 2C 


20 


98 


AF 


B9 


Dl 


B5 


91 


42 


88 


10 






F3 C8 38 60 28 




BF 20 


4€ 


F9 


20 


73 


BF 


A2 


5 


20 


4A 


F9 






AD EF B3 85 44 


2y 


42 AE 


20 


AD 


AE 


20 


AF 


B3 


4C 


C9 


AD 


A2 






06 20" 




























430 


GOSUB 520 : CALL 




144 






















7C6F 


448 


HEX* = "AEB0 :4A 


F9 


A9 F2 


85 


18 


A9 


B3 


85 


19 


A0 


A0 


A9 


00 






85 3C 35 3D F3 


Bl 


18 35 


42 


A2 


08 


26 


42 


A9 


00 


65 


3C 


85 






3C A9 00 65 3D 


35 


3D CA 


D0 


EF 


38 


DQ 


E6 


D8 


A5 


3D 


20 


DA 






FD A5 3C 4C DA 


FD 


8D C5 


05 


D2 


C6 


AD 


AA 


AD 










C85D 


450 


GOSUB 520: CALL 




1 44 
























460 


HEX* - "AEF6 :D3 


CB 


C3 Ci 


D2 


D4 


AD 


AA 


AD 


C5 


D6 


C9 


D2 


C4 






AD AA AD CC CF 


D6 


EA " : GOSUB 520 


: CALL 




144 






F8D2 



59E2 
DF61 

BE8D 
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Roland IOST 



Dans son numero 9, TREMPLIN MICRO a propose une courte routine en 
assembleur (3 lignes) permettant de detecter la frappe dune touche du 
clavier. Voici un programme plus complexe permettant de tester les com- 
binaisons de touches Pomme ouverte ou Pomme fermee, De nombreux 
programmes (APPLEWORKS pour ne citer que lui), utilisent Tune ou 
I'autre de ces touches suivie dune lettre pour aeceder aux divers menus. 



INKEY 



LES POSSIBILITES DE IMKEY : 

• Soisie ou vol de tous les caracteres du clavier, en 
minuscules ou majuscules. 

• Soisie de la frappe d une des touches pomme (ou 
des deux simultaneesj et d une touche alphanume- 
rique. Dans ce cos, les minuscules sont converties 
en majuscules. 

• La frappe d'une touche est accompagnee de remis- 
sion d un son variable suivont le cos. 



UTILISATION : 

6LOAD INKEY.0 
CALL 768,R 

Suivanl la (ou les) touche(s) pressee(s) la variable R 
aura la voleur : 

• touche alphanumerique : < = R <= 127 : code 
ASCII correspondent 

• touche PO + touche alphanumerique : R = 256 + 
code ASCII 

• touche PF + touche al| 
code ASCII 

• touche PF + touche PO + touche alphanumeVi- 
que:R = 768 + code ASCII, 

Dans tous les cas les caracteres de contrdle sont 
acceptes. Le programme BASIC DEMO.INKEY visualise 
parfaitement les differentes possibility. 



Conversion d une minuscule en majuscule 



lanumerique : R = 512 + 



COMMENTAIRES SUR LE PROGRAMME * 

INKEY utilise des routines de la ROM de l J APPLE qui 
meritent quefques explications ; 

PTRGET ($DFE3) : Recherche I'odresse d'une variable. 
Si cette variable n'a pas encore ete definie, elle est 
creee en memoire et son adresse se trouve dans 
VARPNT ($83-84). Pour voir si une touche Pomme ou 
un bouton de manette a ete presse, lire en $C061 (PO 
ou bouton 0) ou en $C062 (PF ou bouton 1 ). 



CodogedeAen ASCII : $41 = 01000001 
Codage de a en ASCII : $61 = 01 1 0000 1 

Ces deux octets ne different que par le bit 5. II suffit 
done de faire un AND £$DF (11011111) pour convertir 
une minuscule en majuscule. 

Recuperation de lo valeur finale dans la variable R : on 
charge maintenant Y avec I'octet de poids foible et A 
ovec I'octet de poids fort. Un appel de GIVAYF ($E2F2) 
transfere cette voleur dans FAC (□ccumulateur flottant). 
La routine WiOVMF effectue le transfert du FAC vers la 
variable R si Ton a eu soin de charger dons X le contenu 
de VARPNT et dons Y celui de VARPNT + 1 (vous n'avez 
pas oublie que I'odresse de la variable R se trouve dans 
VARPNT depuis I'appel de PTRGET), 



Quelques applications de INKEY 



1 . Saisie au vol de caracteres f rappes au clavier en 
evitant la saturation de la memoire de variables 
alphonumeriques, ce qui ne manque pas d'arriver 
si Ton utilise trap souvent la fonction GET R$ de 
I'Applesoft. Mais pour cette seule utilisation on 
peut faire plus simple. 

2. Saisie de commandes avec les touches Pomme. Dans 
ce cos la conversion des minuscules en majuscules est 
indispensable. En effet voire programme se plante 
lorsque vous froppez une commande ovec la touche 
Caps Lock non enfoncee, si vous n'avez pas prevu le 
traitement d'une commande en minuscules. 

3 . Avec un programme d ecriture de caracteres en haute 
resolution, on peut envisoger I'utilisation oisee de 
plusieurs polices, par exemple les caracteres ASCII 
standard obtenus par frappe de la touche correspon- 
dante, les caracteres grecs obtenus par PO + louche, 
les caracteres en indice par PF + touche, etc. 

... et d'autres utilisations que vous ne monquerez pas de 
trouver I {suite page 28) 
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DEMO.INKEY 



100 REM DEMO.INKEY - R.JOST 19B7 

110 TEXT : NORMAL : HOME 

120 PRINT CHR$ <4>"BL0AD " INKEY . " 

130 TEXT : PRINT "Essa/ez les differentes touches " 

140 CALL 768 ,R 

150 IF R = 27 THEN 210 

160 IF R < 128 THEN PRINT R. CHR$ <R): GOTO 140 

170 IF R < 512 THEN PRINT "POMME OUMERTE - " CHR$ <R - 256): 

1 BO IF R < 768 THEN PRINT " POMME FERMEE - " CHR$ (R - 512): 

190 PRINT " LES 2 POMME B ENFONCEES - " CHR$ (R - 768) 

200 GOTO 140 

210 HOME ! MTAB 22: PRINT * (M)ENU DE DISQUETTE ctG"5: GET R$i 
* = "M" OR "R u = "m" THEN PRINT CHR$ <4)'RUN /TME/MENU" 



GOTO 140 
GOTO 140 



PRINT 



IF R 



7F31 
2EEA 
2781 
44AF 
3C8F 
7B6B 
36C9 
2178 
0E60 
2D40 

B619 



EDASM 

ProDOS 



Si vous ne 
possedez pas 
d'assembleur 
contentez-vous 
de taper les 
codes ci-dessous. 



300 


20 


BE 


DE 


303 


20 


E3 


DF 


306 




20 




308 


85 


06 




30A 


. 85 


07 




30C 


{ A9 


00 




30E 


i 85 


00 




310 


: AD 


00 


CO 



1 

2 


* SAISIE 
* 


D'UNE TOUCHE 




3 


CODE 


EGU 


$00 


octet haut du code 


4 


DUREE 


EQU 


$06 


dure> du son 


5 


HAUTEUR 


EQU 


$07 


hauteur (-frequence) du son 


6 


UARPNT 


EQU 


$83 


adresse de la derni£re uariabl 


7 


* 








8 


KBD 


EQU 


$C00Q 


lit 1 e c 1 av i er 


9 


STROBE 


EQU 


SCD10 


reinitialise lect. du clavier 


10 


SPKR 


EQU 


$CQ30 


active le hau t-par 1 eur , 


11 


BUTTON0 


EQU 


$C061 


lecture ^tat touche pomme ouu. 


12 


BUTTON 1 


EQU 


$C062 


lecture etat touche poiwrie -fer. 


13 


CHKCOM 


EQU 


$DEBE 


teste la viroule 


14 


PTRGET 


EQU 


$DFE3 


rech . d'une van. par son nom 


15 


GIVAYF 


EQU 


♦E2F2 


rend flottant l'entier en A,Y. 


16 


COM BYTE 


EQU 


$E74C 


teste la viroule, evalue la 


17 








variable et stocke dans X. 


18 


MOUMF 


EQU 


$EB2B 


trans-fere FAC dans octet 


19 








pointe par X.Y 


20 




ORG 


$300 




21 


* 








22 


* KEi 








23 










24 


* Appel 


par 


:all KEY,R : 


e code ASCII de la touche 


25 


* 




se trouve dans R, augments de : 


26 


* - 256 


SI 


*OMME OUUERTE 


a <*te pressed en meme temps 


27 


* - 512 


si POMME FERMEE a et# presses 


28 


* - 768 




les deux touches POMME sont soli ici tees 


29 


* 








30 


* 








31 




JSR 


CHKCOM 


: virgule pr^sente? 


32 




J3R 


PTRGET 


j ou i , recherche l 'adresse de R 


33 




LDA 


£$20 


; in f t ial Lie 


34 




STA 


DUREE 


les parametres 


35 




STA 


HAUTEUR 


; de la rout i ne SON . 


36 




LDA 


£00 


met & zero le drapeau testant 


37 




STA 


CODE 


; l'appui d'une touche POMME. 


38 


KEY 


LDA 


KBD 


a.t.on en-fonce une touche 7 
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[■■•■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■HmiiaimiiiiMiiHiHHii 



313: 


1 


FB 




39 




BPL 


KEY 


; non 


Jib: 


2L 


i n 
1 I 


CO 


40 




BIT 


STROBE 


ou i , reset du clavier 


31 8 : 


48 






41 




PHA 




; sauve A temoor a i remen t 


jl y : 


AD 


6 1 


CO 


42 




LDA 


BUTT ON 


touche POMME OLWERTE 


31 C : 


1 


OE 




43 




BPL 


P0MFERM 


■ non sol 1 i c i t£e 


31 E : 


68 






44 




PLA 




r appe 1 1 e A 


31 F : 


C? 


E0 




45 




CMP 


£*E0 : est^ce une minuscule 


321 : 


90 


02 




46 




BCC 


B0 


non 


323 : 


2Y 


DF 




47 




AND 


£'*DF ; ou i : on la convert it en ma.jusc. 


325 : 


48 






48 


BO 


PHA 




C 3 I! 1) p £k 
s a \j v c n 


326 : 


E6 


00 




4? 




INC 


CODE 


tnurhji PflMMF HIIUFRTF wHIiqiSp 


328 : 


A v 


A ft 

40 




50 




LDA 


£$40 


1 p snn c & r i an rnncAniifinrfi 
ic sun 3' c r a r 1 1 kuiiac^uciiL? ■ ■ 


j2h : 


a e 
OD 


7 




5 I 




STA 


HAUTEUR 


o2L ! 


AU 


e>2 


C fl 




POMFERii 


LDA 


BUTTON 1 


la touch** PDMMF FFRMFF 
is u l 1 1 c rui it it r uiM III 


32P : 


1 u 


1 




53 




BPL 


S0RT1 E 


n »a n a i; & ¥ A ii f i 1 i c 

■ Id L' o c l r VJL 1 f i^^rtr 


JJ1 ! 


k Q 
OO 






54 




PLA 




c i r r 1 1 n i r- o 

SI ^ 1 c L U|Jr 1 c 1 — I 


T39 • 


LT 


pn 
tu 




J J 




CMP 


M*E0 


est-ce une minuscule? 


T3.il ■ 

JJ*T ! 


on 


u c 




56 




r% i-* p. 

BCC 


Bl 


non 


336 ; 




Vr 




57 




AND 


€$DF 

L Wmr 1 


uuit uu id Luiivrr i i i nifii jus f 


inn , 


He! 








31 


PHA 




ci ui? _ a u - t uan^ la pile* 


TOO , 

33r : 


to 






C Pi 

59 




INC 


CODE 


rajoute 512 


33t? : 


h6 


n n 
UU 




60 




INC 


CODE 


au code 


33L* : 


Ay 


60 




i 1 




LDA 


£*60 


1e son sera different.. 


33F j 


85 


07 




62 




STA 


HAUTEUR 




34] ; 


20 


5F 


03 


63 


SORTIE 


JSR 


SONX 


appel rout i rie SON 


344 : 


68 






64 




PLA 




345: 


2? 


7F 




65 




AND 


€*7F 


met bit 7 a ze>o 


347: 


A6 






66 




TAY 




trans-fere A dans Y 


343 : 


A5 


00 




67 




LDA 


CODE 


recupere 1 octet de poids fort 


34A: 


20 


F2 


E2 


68 




JSR 


*E2F2 


trans-fere dans FAC 


34D: 


A6 


83 




69 




LDX 


VARPNT 


adresse de la variable R 


34F: 


A4 


84 




70 




LDY 


VARPNT+1 




351 : 


20 


2B 


E8 


71 




JSR 


MGWF 


trans-fere FAC dans R. 


354: 


60 






72 
73 




RTS 




e'est termine 4 










74 


* SON 
















75 


* 
















76 


* Appe 1 


par CALL SON , dur£e , hau teur 










77 


* 








355 : 


20 


4C 


E7 


78 


SON 


JSR 


COM BYTE 


! at tend une v i r gu 1 e 


iff" r*i 

5 3 : 


86 


06 




79 




STX 


DUREE 


et stocke la variable. 


35A: 


20 


4C 


E7 


80 




JSR 


COM BYTE 


■ teste la v i r gu 1 e , 4 y a 1 u e 


350 : 


86 


07 




81 




STX 


HAUTEUR 


e t stocke la var i abl e 


35F : 


A4 


06 




82 


SQNX 


LDY 


DUREE 


! debut du programme SON 


361 : 


AD 


30 


CO 


83 


SON 00 


LDA 


SPKR 


active It hau t -par 1 eur 


364: 


88 






84 


SONO 


DE'i' 




! tant Que 


365: 


DO 


04 




85 




BNE 


SON! 


V > 


367: 


C6 


06 




86 




DEC 


DUREE 




369 i 


F0 


07 




87 




BEQ 


FINSON 




36B: 


CA 






33 


SONJ 


DEX 






36C: 


DO 


F6 




89 




BNE 


SONO 




36 E: 


A6 


07 




90 




LDX 


HAUTEUR 




370: 


DO 


EF 




91 




BNE 


S0N00 




372: 


60 






92 


F1NS0N 


RTS 




BSAVE INKEY.0,A$3QG\L$73 
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MATHS AMUSANTES 



ProDOS 



DOS 3,3 




lean PERROT 



LES CARRES MAGIQUES 



HISTORIQUE 

• Les CARRES MAGIQUES sont fort onciens. lis 
etaient connus des Chinois et des Hindous bien 
avant notre ere, sans que Ton puisse en fixer Tori- 
gine exact©. 

• Le carre d'ordre 3 existe dans un manuscrit ARABE 
du 8 e siecle, mais c'esl au 14 e siecle qu'il fut amene 
en Europe par le grammairien Byzantin MOSCHO 
POULOS. 

• PASCAL, FERMAT, EULER, FRENICLE, VIOLLE et 
bien d'autres, ont etudie mathematiquement le 
probleme et donnent des constructions plus ou 
rnoins simples, mois on n'a pas encore decouvert 
de methode generale pour fes construire tous. 

Le programme CARRES.MAG generalise le probleme 
et permet de construire n'importe quel carre mogi- 
que, MAIS j'oi limite a 19 1'ordre d'un carre a cause de 
la grandeur de I'ecran, 

On pourrait modifier le programme pour construire 
des carres d'ordre superieur. 

Pour obtenir des CARRES MAGIQUES, quel que soit 
I'ordre, j'ai mis au point trois methodes : 

1. Carres IMPAIRS : methode derivee de celle de LA 
LOUBERE (XVII 6 siecle), puis de celle de BACHET ; 

2. Carres PAIRS multiples de 4 : methode inspiree de 
la precedente : 

3. Carres PAIRS non multiples de 4 ; methode des 
pourtours qui utilise des carres magiques multi- 
ples de 4, que Ton entoure d'une enceinte colculee 
selon un procede assez complexe. 



BIBUOGRJLPHIE SUCCINCTE W ROUSE BALL fiecr^ons MaJhema 

tiquei (PARIS I9?6 0] - Maur«e 
KRAJTCHIK Troite des carres mogig«« |OAUTHI£H— VILLARS >930: - Eulrope CAZAIAS 
Corres mogiqiiK ou degr* n [HERMANN 19J4) - Philip de IAWRE Nouvelta construc- 
tions el consufeioiions sui let carres mogiques (PARIS \Wl - FRENICLE Qes carr«« ou 
tobies magiques (PARIS ITN) - Edouard IUCA5 Les correi nvogiques de FERWAI ei de 
FRENICLE :PARIS OELAGRAVE IB87| . 



PROPRIETE5 

• Un carre magique reste magique : 

1. Si on fait tourner tous ses nombres d'un angle DROIT 
par rapport au centre ; 

2, Si on pratique une symetrie par rapport d la mediane 
verticale ou a la mediane horizontote, ou par rapport 
a une diagonale ; 

3, Par echange de 2 lignes et de 2 colonnes equidistan- 
tes du centre ; 

4. Par symetrie par rapport au centre. 

• De nombreux mathemoticiens ou chercheurs etudierent le 
probleme et ils inlroduisirent des conditions supplemental- 
res. C est ainsi qu i Is decouvrirent : 

- LES CARRES BIMAGIQUES qui restent magiques en rempla- 
cant leurs nombres par leurs carres ; 

- LES CARRES TRIWAGIQUES qui restent magiques en rempia- 
cant leurs nombres par leurs carres ou par leurs cubes. 

GENERALISES 

• Si N est I'ordre (nombre de colonnes ou de lignes). le 
carre contient les N X N nombres entiers, de telle 
facon que les sommes des lignes, des colonnes et des 
diagonales represented le meme nombre ou CONS- 
TANTE MAGIQUE. 

• Soit S la somme des N premiers nombres : 
S = 1+2+3 + + {NXN) 

S = (NXN) + [(N-l)X(N-1)]+... + 2+l 

2XS = (NXN)X(NXN + 1)dou 
S = (N X N) X (1 + N X N) 2 

• La CONSTANTE MAGIQUE est done : 
CM = N X (1 + N X N) / 2 

• Les constantes des premiers CARRES MAGIQUES sont done : 
pourN=3-»CM=15 N=4-»CM=34 N=5— »CM=65 
pourN=6-»CM = lll N=7— » CM=175 etc. 

GENERALISATION a des nombres non consecutifs. 
Soit OD I'ordre, NB le plus petit nombre et INC Increment (diffe- 
rence entre 2 nombres consecutifs de la suite). On obtienl : 
S = (OD X OD) X (2 X NB + (OD X OD + 1) x INC) 2 
CM = OD X (2 X NB + (OD X OD + 1) X INC) 2 
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100 
105 
1 10 

1 15 
120 
125 



136 

1 35 
149 
145 

150 

1 60 

170 



REM 



CARRE MAG I QUE 



PRINT CHR* <4) ,, PR£3 H : PRINT 

PRINT ■ DRDRE . . . .= Nombre de lignes du earrt magiqu 
e . . . 1 imi te i c i a " J ! INVERSE : PRINT " 1? " : NORMAL 
PRINT " INCREMENT = Difference cons tan te entre 2 nom 
bres de la suite.": PRINT 

PRINT : PRINT ■ Lorsque tous les nombre s du CARRE MAG 
I QUE ne pourront pas ten i r dans 1 ^cran" : PRINT "APP 
LE refusers les donnees, et uous deurez entrer des n 
omb r es plus p e t i t s . " 

UTAB 13: INPUT "-Entrez 1 e plus petit nombre :"";N8l 
PRINT 

INPUT "-Entrez I 'increment f" jINCl PRINT 

INPUT "-Quel est 1'ordre du CARRE ? ";0D 

IF GD = 2 OR 00 ) 19 THEN CALL - 998; CALL - 198: 

GOTO 1 40 

ND = NB + COD 2 - i> * INCsNN = LEN < STR* CND>> 

DIM ACOD + 1 ,00 + 1) ,HC0D) f V<0Q) 

IF CNN + 1> * OD > 77 THEN GOTO 265 

IF OD / 2 < > INT COD / 2) THEN G0SU8 2S5: GOTO 3 
50 : REM ORDPE IMPAIR 

IF OD / 4 < > INT COD / 4> THEN GOTO 295: REM NON 
MULTIPLES DE 4 



175 : 

180 REM 
135 : 
190 
195 
20Q 
20 5 



CARRES PAIRS MULTIPLES DE 4 



210 
215 

220 
225 
230 
235 



24 



245 

250 
255 
260 
265 



2 T 



GOSUB 285 

K = 1 s IF AA = 1 THEN K ■ 2 # N - I 
FOR J = 1 TO OD: FOR I = 1 TO OD 

Al = NB + CK - 1) * INC:ACJ,I) = A1:L1 = LEN ( STR* 

<A1 ) > 

K = K + 1 

IF LI < = L THEN 225 
L = LI 
NEXT I , J 

FOR J = 1 TO OD / 2 ! FOR I = 1 TO OD 

IF (J = 1 OR J = 4 OR J = 5 OR J = 3 OR J = 9> AND < 

I = 1 OR I = 4 OR I = 5 OR I = 3 OR I = 9 OR I = 12 
OR I = 13 OR I = 16> THEN 250 

IF (J = 2 OR J = 3 OR J = 6 OR J = 7 OR J = 10) AND 
CI = 2 OR I = 3 OR I = * OR I = 7 OR I = 10 OR I = 1 

1 OR I = 14 OR I = 15) THEN 250 

2 = A COD - J + 1,00 - I + I ) : A< OD - J + 1 , OD - I + 1 
> = AC J , I > ;AC J, I.) = 2 

NEXT I , J 

IF AA = 1 THEN 315 
GOTO 415 

HOME : CALL - 198: UTAB 8: PRINT "Plus petit nombre 
= ";NBs: PRINT " Increment = ";INC;: PRINT " 

"Ordre = " ; OD 

PRINT : PRINT "L'une de ces donnees C au mains) est t 
rop grande . . . Recommencez . . . " 



083A 
ED56 

3C87 

E458 

4627 

FEE4 
C2BE 
91 DA 

?E4A 
7EDB 
351A 
0^39 

C621 

71A4 
603A 

003A 
234F 
03D9 
9279 

3E0 3 
215F 

7774 
7999 
9741 
3376 

CIDF 

772E 

DE30 
9741 
38D 
0F45 

3663 
3ASE 
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275 VTAB 21: POKE 1493,50: PRINT "line touohe...SMP "ji C 



ALL - 193: GET H* : PRINT 
288 PRINT : HOME : RUN 115 

285 HOME : MTAB 10: POKE 1483,28: PRINT "PATIENCE... Je 

Cftl cul 9 ■ . . " : RETURN 
290 : 

295 REM CARRES PAIRS NON MULTIPLES DE A 

38 6 : mm 3m 

305 DIM BCOD + 1 ,OD + 1 ) 

319 N = OD:OD = OD - 2:AA = 111 GOTO 199 
315 OD = N 

326 FOR J - 1 TO OD: FOR I = 1 TO OD 

325 B<J + 1 , I + 1 > = A<J,I> B665 
330 A<J,I> = B<J,I> 
335 NEXT : NEXT 

340 GOTO 560 F846 
345 : 

350 REM 'ImPPES IMPAIRS 

355 : | 3 M 

369 X = INT COD / 2> + 1 :Y = I: REM PLACE DE NB DANS LE 

CARRE 6969 
365 FOR I = NB TO ND STEP INC 
379 A<X,Y> = I:L = LEN < STR* <I>) 

375 ZX = X:ZY = Y:X = X - 1 :Y = Y - 1 A23A 
339 IF X < 1 THEN X = OD 4286 
385 IF Y < 1 THEN Y = OD 

390 IF A<X,Y> < > 6 THEN X = ZX:Y = ZY + 1 5C99 
395 NEXT 
460 : 

405 R EM ECRITURE SUP ECRAN 

410 : 00 3A 

415 HOME : PRINT :D1 = 0:D2 = 8 

420 LL ■ 1: IF OD < 14 THEN LL = 2 61A7 
425 FOR I - 1 TO OD 

430 H< I > = :'-.,■'< I > = 6 

435 FOR J = 1 TO OD 7720 
440 A< J,X) = INT <A<J,I>> 

445 VTAB I: POKE 1403, J * CL + LL> - LEN < STR* <ACJ,I> 

>> E466 
450 PRINT A < J , I ) 

455 H<n = H< I > + A<J,n 6MD 
466 V< I > = I ) + AC 1 , J> 
465 NEXT J 

470 Dl = DJ ♦ A < 1,1) BBD2 
475 D2 = D2 * Ad ,OD - I + 13 

486 NEXT I 90CB 
485 Z = OD * (2 * NB ♦ CCOD * 2) - 1> * INC) / 2:2 = IN 
T CZ) 

490 PRINT : PRINT "NOMB , INFER I EUR : " ; : INVERSE : PRINT 

"NB" " ; : NORMAL 51A8 

495 PRINT " INCREMENT:";: INVERSE : PRINT " " INC 4 " ; : N 

ORMAL 4 CDS 

509 PRINT " " ORDRE : " ; : INVERSE : PRINT ■ "OD" ■ ; : NORMAL 
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565 PRINT " "CONST. MAGIQ. :"; : INVERSE : PRINT " " Z " ";: 

NORMAL : PRINT " " ; 
510 FOR 1=1 TO 40 : Z = PEEK (49200) : NEXT 
515 PRINT ; PRINT : PRINT "UOULEZ -MOUS MO I R D "AUTRES CAR 

RES MAGIQUES ? <0/N) ";: GET H*: PRINT : PRINT 
526 IF H* = " N " THEN PRINT "Confirmez en appuyant sup " 

INVERSE : PRINT " N " ; ; NORMAL : PRINT " " ; 
525 IF m = "0" THEN PRINT "Con-firmez en appuyant sur " 

;: INVERSE : PRINT " " ; : NORMAL : PRINT " ""j 
530 FOR I = 1 TO 20 ;Z = PEEK ( 49209 ) : NEXT 
535 GET H* : PRINT 

548 IF H* = "O" THEN HOME : RUN 115 
545 PRINT CHR* <4> M RUN MENU" 
550 END 
555 : 

569 PEN DALCUL DES N OMBRES DU POURTOUR 

565 : 003A 

570 FOR I = 1 TO N - 3 

575 A<I + I ,1) = NB + 2 * I * INCiACI + 1 ,N> = NB + (N A 

2-2*1 -I) * INC 
580 A< 1 ,N - I > = NB + <2 * I + 1 > * INC ;A(N,N - I ) = NB 

+(N A 2-2*I-2>* INC 
535 IF I > N / 2-2 THEN A< 1 ,N - I > = NB + < 2 * I + 3> 

* INC:A<N,N -I>=NB+CN A 2-2*1-4?* INC 
590 IF INT (1/2) < > I / 2 THEN Z = A< I + 1 , 1 ) :A< I + 

1,1) = A< I + 1 ,N) :A< I + 1 ,N> = Z 
595 IF I = N - 3 THEN 605 

600 IF INT <I / 2> < > I / 2 THEN Z = A< 1 , N - I > : AC 1 , N 

- I) = A < N , N - I):A<N,N - I) = Z 
695 NEXT 

610 A<1,U) = NB iA<N,N) = NB + (N * 2 - 1 > * INC 

615 A<N - 1 f N> = NB + INC:A(N - 1,1) = NB + (N s 2-2) 

* INC 

620 A < N , 1 ) = NB + (N - 1) * INC:A<1,N> = NB + <N * 2 - N 
> * INC 

625 A<N,2> = NB + 2 * <N - 2> # INCiA(l,2) = NB + CN A 2 

- 2 * N + 3) * INC 
630 AA = 

635 GOTO 415 



Les meilleures routines LM ne sont pas les plus longues. 

C'est la raison pour laquelle nous reprenons periodiquement, dans nos ouvrages 
collectifs, la plupart des programmes courts inseres dans Tremplin Micro. Mais ces 
ouvrages contiennent aussi de nouvelles versions de routines LM deja publiees. 
C'est une raison suffisante pour ne pas manquer : 

NOUVELLES ROUTINES POUR LE 65C02 DE L APPLE 

(on sait que le 65C816 du OS £mule parfartement le 65C02) 

Prix de vente avec disquette ; 160 F 
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QUESTION 




Clement RENARD 



FOND D'ECRAN (65C02) 



r 



QUESTION : 

Comment remptacer le petit programme 
Basic ci-contre par une routine en langage 
machine,., pour une plus grande rapidite 
d'execution ? 



10 HOME:A$ = "" 

20 FOR A = 1 TO 40; A$ = A$ + "WV": NEXT 

30 FOR B = 23 TO 1 STEP - 1: VTAB B: PRINT 

CHR$(27);: INVERSE : PRINT A$;: NEXT 
40 NORMAL : PRINT CHR$(24) 



REPONSE : Voici une solut ion en 33 ou 27 octets. Avec un ecran couleur, elle donne un fond 
d'ecran pjutot joli. On peut aussi essoyer avec fa valeur S4E en $31 1 (FECO) ou $309 et 
0310 (FECI). La partie DEMO ci-dessous est tout a fait superflue, comme on le constatera d I'usage. 



100 PRINT CHRS (4)"PR£3": PRINT : GOSUB 220 

110 REM GOSUB 240 POUR ROUTINE SF847 (GBASCALC) 

120 VTAB 12; PRINT "FOND D'ECRAN EN 80 COLONNES ;: GOSUB 200: 
CALL 768 

130 GOSUB 210: HOME 

140 PRINT CHRS {17): VTAB 12: PRINT 'FOND DECRAN EN 40 COLON 
NES": PRINT : GOSUB 200: CALL 768 

150 GOSUB 210 

160 VTAB 21; CALL - 958: PRINT ; PRINT "(E)NCORE IMjENU DISK fRIN ";: 
GET RS: PRINT R$ 

170 HOME : IF R$ — "E" OR R$ = "e" THEN PRINT CHRS (18): GOTO 120 
180 IF R$ = "M" OR RS = "m" THEN PRINT CHRS (4) "RUN MENU" 
190 END 

200 PRINT "(PRESSER UNE TOUCHE)" 

210 CALL - 198; POKE 49168,0: WAIT 49152,128: POKE 49168 0: PRINT : 
RETURN 

220 FOR I = 768 TO 300: READ R : POKE I.R: NEXT : RETURN 

230 DATA. f6?,23 r r33.37,32 > 193,251 l 160.39.169,87, 145.40,44,85,192,169, 
86,145,40,44.84,192 136,16.239,198,37, 165,37, 16,226,96 

240 REM ROUTINE UTILISANT GBASCALC (4 OCTETS DE MOINS) 

250 FORI = 768 TO 796: READ R: POKE l,R: NEXT; RETURN 

260 DATA 162,23,138,32,71,248,160,39,169,87,145,38,44,85,192.169, 
86,145.38.44.84,192,136.16,239,202,16,230,96 





Avec BASCALC 




300 


A9 


17 




LDA 


£$17 


302 


85 


25 




STA 


S25 


304 


20 


CI 


F B 


JSR 


SFBCl 


307 


AO 


27 




LDY 


£S27 


309 


A9 


57 




LDA 


£S57 


30B 


91 


28 




STA 


($28). Y 


30D 


2C 


55 


CO 


BIT 


5C055 


310 


A9 


56 




LDA 


£S56 


312 


91 


28 




5TA 


($28),Y 


314 


2C 


54 


CO 


BIT 


SC054 


317 


88 






DE Y 




318 


10 


EF 




BPL 


S0309 


31A 


C6 


25 




DEC 


S25 


31C 


A5 


25 




LDA 


S25 


31E 


10 


E2 




BPL 


S0302 


320 


60 






RT5 






BSAVE FEC0,A$30O,l$21 




Avec GBASCALC 




300 


A2 


17 




LDX 


£517 


302 


8A 






TXA 




303 


20 


47 


F8 


JSR 


SF847 


306 


AO 


27 




LDY 


£527 


308 


A9 


57 




LDA 


£$57 


30 A 


91 


26 




5TA 


($26), Y 


30 C 


2C 


55 


CO 


BIT 


SCO 55 


30 F 


A9 


56 




LDA 


£$56 


311 


91 


26 




STA 


($26). Y 


313 


2C 


54 


CO 


BIT 


SCO 54 


316 


88 






DE Y 




317 


10 


EF 




BPL 


$0308 


319 


CA 






DEX 




3TA 


10 


E6 




BPL 


S0302 


31C 


60 






RTS 






BSAVE FEC1,A$300 ( L*ID 
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INITIATION ■WW 



GS 



Nicole BREAUD-POULIQUEN 




Void, en Basic, un exemple de programmation montrant comment changer le standard de trai- 
tement de 1'inrerruption generee par CTRL-PO-ESC (acces au tableau de bord de I'Apple IIGS). 
Les explications sont resumees dans le listage du programme. 

I TABLBORD 1 



160 TEXT : NORMAL :D4 = CHR* <4>: PRINT D* H PP£3" 
185 REM *** LE TABLEAU DE BORO DU GS *** 
118 : 

115 PRINT " 1L EST POSSIBLE DE MODIFIER 'au vol-' LA CONFIGURATION DU 

GS" •• A! 

128 PRINT " GRACE A L 'ACCES SO I RE DE BUREAU: Control Panel" 99C0 
125 PRINT : PRINT " ESSAY E2 en appuyant sur CTRL-PO-ESC" 

138 PRINT " puis en efcotsissant Control Panel dans le Menu" 

135 PRINT 73BA 
140 PRINT 75BA 
145 PRINT "Mais, SI on NE ueu.t PAS de cette liberte ? u 53E2 
150 PRINT " ' ALORS il faut modi-fier le wecteur IRQ . DSK .ACC" 

155 PRINT " et par exemple -fairs ex£cuter CLC RTL au lieu dun sa 

ut" 4260 
160 PRINT n " " " ' ' "a la routine standard qui oere les accessolres de bur 
eau" 

165 PRINT : PRINT "TAPEZ SUR Return POUR NEUTRAL I SEP LES ACCESS01RES D 

E BUREAU " ; 
17y INPUT ;X* 

175 : 003A 

180 REM En STANDARD , IRQ. DSK. ACC contient JMP FEADF2 

185 REM PAS D v ACCES: IRQ. DSK. ACC ne tera 5 ' e:~:ec u ter que CLC RTL 

190 REM SOUS-PROGRAMME POUR MODIFIER IRQ. DSK. ACC 

195 : 003A 
200 READ I: POKE 768 + J.I:J = J + 1: IF 1 = 107 THEN 285 3F81 
205 GOTO 200 333D 
210 : 003A 
215 REM IL EST IMPLANT E A PAPTIP DE $80/0360 

220 ! O03A 

225 DATA 24,251 ,194, 48,244,0, ,244*0 ,0 ,.244,-18,*, 162, 3,17,34 ,0,0,225,10 
4 , 1 4 1 , 58 , 3 , 1 4 , 1 4 1 , 55 , 3 , 244 , 1 8 . 9 , 244 , Q , , 244 p 79 , 3 , 1 62 , 3 , 1 6 , 34 , 6 , 6 , 
225,56,251 ,96 F62? 

230 : 093A 

235 REM RETOUR A LA NORMAL E EN **0/832F 

240 : 003A 
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c *+□ 




4fl 744 tR A 744 ^44 4"? 3 162 3.1^.34.0.0,225,5 








*3BD 


£ J □ 






00 3A 




REM NOWEAU S/P 


APPELE PAR 1R0.DSK.ACCES EN *00/0346 




269 








265 


DATA 24,167 




EDAP 


270 






693A 


275 


REM PAS D'ACCES 


AUX ACCESSOIRES 




280 






00 3A 


285 


CALL 768 




8331 


299 


PRINT ! PRINT "f 


»OUR LES RET ROWER , TAPER CALL 815 et CTRL-PO-ESC " 


B1AE 



*0=m : 0=x 

" III ■ 












*00/308L 












0=m = 


K 


1 = 


LCbarck 


<0/l > 




60/0 300 : 


1 3 






CLC 




00/0 301 : 


FB 






XCE 




80/0302 : 


C2 


30 




REP 


£30 


00/6304: 


F4 


08 


00 


PEA 


0000 


00/O30 7: 


F4 


00 


00 


PEA 


0000 


00/030A: 


F4 


1 2 


00 


PEA 


0012 


00/030D: 


A2 


03 


1 1 


LDX 


£1103 


00/0310 : 


22 


00 


00 El 


JSL 


E10000 


00/0314: 


68 






PLA 




00/8315: 


8D 


3A 


03 


STA 


033A 


09/0318: 


68 






PLA 




00/931?; 


8D 


37 


03 


STA 


8337 


09/031 C: 


F4 


12 


00 


PEA 


0012 


60/031 F: 


F4 


00 


00 


PEA 


0000 


00/0 322 s 


F4 


46 


03 


PEA 


0346 


00/0325: 


A2 


03 


10 


LDX 


£1003 


00/0323: 


22 


00 


00 El 


JSL 


E10000 


00/032C: 


38 






SEC 




8Q/032D: 


FB 






XCE 




00/032E: 


60 






RTS 




*L 












0=m 0= 


K 


1 = 


LCbank 


<0/l ) 




0/032F: 








CLC 




06/0330 : 


FB 






XCE 




00/0331 : 


C2 


33 




REP 


£30 


00/0333: 


F4 


12 


00 


PEA 


0012 


00/0336: 


F4 


FE 


00 


PEA 


00FE 


00/0339; 


F4 


F2 


AD 


PEA 


ADF2 


00/033C: 




03 


10 


LDX 


£1003 


00/033F: 






00 El 


JSL 


E10000 


00/0343: 


c 






SEC 




00/0344: 


FB 






XCE 




00/0345: 


60 






RTS 




00/0344: 


18 






CLC 




00/0347; 


6B 






RTL 





Pour obtenir les listages ci-apres, tapez d'abord 
= m : = x. 



Passage en mode notif 
avec des registres sur 16 bits. 

Sauvegarde de I'ancien vecteur : 



GetVector N = $0012 

Le resultat modifiera le champ 
operande des instructions $336 et $339. 

Mise en place du nouveau vecteur : 

SetVector N = $0012 P = $000346 



Passage en mode emulation 
avant le retour au Basic. 



Restauration de I'ancien vecteur : 



SetVector N = 50012 P resultant de GetVecror. 



Nouveau Vect eur . Pas de reaction souhaitee. 
informe que interruption a ete traitee. 
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GUY-HACHETTE 



INITIATION | 



Nicole BREAUD-POULIQUEN 




Ce programme ressemble beaucoup au precedent... et pour couse ! II vous promet un tic-tac 
assez impressionnant, scandant le fonctionnement du GS ! Notez qu'apres I'avoir interrompu 
par POKE 756,7 et CALL 751, vous pourrez le reprendre par POKE 756,6 et CALL 751... si vous 
n'avez pas ecrase votre routine entre temps, bien sGr ! 



1QQ 


TEXT : NORMAL :D$ = CHR$ <4>: PRINT DVPR£3" 


55D6 


105 


REM *** UN TIC-TAC POUR LE GS *** 




lie 


• 


003A 


115 


PRINT " "A PARTIR DE L INTERRUPTION 'Timer lsec'" 


8178 


120 


PRINT "GRACE AUX F0NCT10NS GetVector, SetVector ft IntSource" 


BOB 4 


125 


PRINT " "- GetWctar pour sauuegarder l-'ancienne ualeur de IRQ.1SE 






C" 


49AF 


130 


PRINT " - SetUector pour -fixer un nouveau S/P qui se d4c 1 enchera" 


8471 


135 


PRINT M chaque seconde, mais a condition que 1 * interrupt i on ait 








E°AC 


140 


PRINT ■ auroMsee par IntSource N°9066" 




145 






150 


REM EN STANDARD , IRQ.1SEC contient JMP FFB498 'SEC RTL) 




155 


REM SOUS-PROGRAMME DU HEME MODELE QUE LE PRECEDENT 




149 




00 3A 


145 


READ I: POKE 76B ■ ♦ J, I J J = J + 1 ! 1 F I = 1 07 THEN 235 


817C 


178 


GOTO 145 


4347 


175 




00 3A 


136 


REM IL EST IMPLANT E A PARTI R DE $09/0300 




185 




883A 


196 


DATA 24,251 ,194,48,244,0,0,244,9,0,244,21 , 9 I, 1 62 , 3 , f 7 , 34 ,0 , 8 , 225 , 10 
4,141 ,53,3,104,141 ,55,3,244,21 , , 244 , , 6 1 244 , 70 , 3 , 1 42 , 3, 14 , 34 , , 6 r 






225,54,251 ,94 


541B 


195 

200 


> 

REM RETOUR A LA NORMA LE EN *@0/032F 


003A 


285 




003A 


210 


DATA 24,251 ,194,48,244,21 , , 244 , , , 244 , 47 ,3 , 1 42 .3 , 1 4 , 34 ,0 , , 225 , 5 






4,251 ,94 


A0B7 


215 


• 


0«3A 


220 


REM N00VEAU S/P APPELE PAR IRQ. 1 SEC EN % 00/0344 




225 




083A 


230 


DATA 224 , 48 , 1 48 , 96 , 1 62 , 1 28 , 202 , 28 8 , 253 , 44 , 48 , 3 92 , 1 36 , 208 , 245 , 1 6* , 6 






4,28,50,192,24,187 


EBD9 


235 


CALL 748 


8331 


240 




093A 


245 


REM AUT0RISAT1ON DE L"' INTERRUPT I ON EN $00/0B82EF (suite page 38) 





TREMPUN MICRO 



2Sfl 




06 3A 




PFAD I • Pflk'F 7^1 + k' I tU — k + 1* IF k "5 1* THEN 2~ 7C 1 


A44P 




RfiTfJ 2SS 

1 'J #C ■ J 


1B47 


265 




00 3A 


27" 


DATA 24 f 251 ,194,48, ^44 , 6 ,9 , 1 62 , 3 , 35 , i4 , 8 , , 2^5 » 56 ,251 r T«a 


ML J 1 


275 


CALL 751 


7F2 Q 


230 




003A 


285 


PRINT : PRINT "POUR ARPETER LE TIC-TAC, TAPE2 : 


FF6B 


290 


PRINT " ■- POKE 756,7 puis CALL 751" 


0C39 


295 


PRINT : PRINT "POUR ANNULER L' OPERATION, TAPEZ i " 


5EBB 


309 


PRINT " "- CALL 315" 


C865 



*8=m : @=-k 












*>00/2EFL 










0=m 0= 




l=LCbank 


<0/l > 




t? U ✓ t' jC t r ■ 


1 o 
1 © 






CLC 




B8/02F0 i 


FB 






XCE 




O0/02F1 : 


C2 


,.».. 




REP 


£30 


B0/02F3: 


F4 


O O 




PEA 


0006 


90/0 2F6: 


A2 


A "' 

V w 




LDX 


£2303 


0/62F?: 


22 


P\ Pi 


n ri Ft 


JSL 


E10000 


00/0 2FD: 


38 






SEC 




90/0 2FE: 


FB 






XCE 




00/02FF: 


60 






RTS 




00/6300 : 


18 






CLC 




00/0301 : 


FB 






XCE 




60/0302: 


C2 


30 




REP 


£30 


00/0304: 


F4 




CI V 


PEA 


000 


00/0307: 


F4 





00 


PEA 


0000 


06/030A: 


F4 


13 


00 


PEA 


0015 


00/0 30D: 


A2 


03 


1 I 


LDX 


£ 1 103 


06/0310 : 


22 


00 


00 El 


JSL 


E10000 


00/0 314: 


68 






P LA 




00/0315: 


8D 


3A 


03 


STA 


033A 


00/0318: 


63 






PLA 




*L 












0-m 8= 


~x 


1 = 


-Cbank 


(0/1 > 


00/031?" 


3D 


37 


03 


STA 


0337 


00/031C 


F4 


15 


00 


PEA 


0015 


00/031 F 


F4 


00 


00 


PEA 


0000 




F4 


46 


03 


PEA 


0346 


00/0325 


A2 


03 


10 


LDX 


£1003 


00/0328 


t 22 


00 


00 El 


JSL 


E1000O 


00/032C 


i 38 






SEC 




00/032D 


! FB 






XCE 




00/032E 


i 66 






RTS 




00/032F 


: 18 






CLC 




00/0 330 


: FB 






XCE 




00/0331 


! C2 


30 




REP 


£30 


00/0333 


: F4 


15 


00 


PEA 


0015 



Autorisation d f interruption o IRQ. 1 SEC 



IntSource N = 



Souvegorde de I'oncien vecteur 



GetVector N = $0G15 



Mis© en place du nouveau vecteur 



SetVector N =$0015 



Restauration 



_ SetVector N = $0015 
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00/0334: 


F4 


60 





PEA 


00 9 


©9/8339: 


F4 


46 


03 


PEA 


0346 


00/033C: 


A2 


03 


10 


LDX 


£1803 


00/033F: 


22 


00 


00 El 


JSL 


El 0000 


00/6343: 


38 






SEC 




80/0344 : 


F8 






XCE 




60/0345 : 


60 






RTS 





*l=m: l=x 










*346L 












1 =m 1 = 


=x 


l=LCbank 


( 0/1 ) 






00/6346 


i E2 


30 


SEP 


£30 




00/0 348 


i A0 


60 


LDY 


£60 




06/0 34 A 


: A2 


30 


LDX 


£30 




06/034C 


: CA 




DEX 






00/634D 


; 00 


FD 


BNE 


34C 


e-03fc 


06/034F 


• 2C 


30 C6 


BIT 


C630 




00/0352 


: 33 




DEY 






00/0353 


D0 


F5 


BNE 


034A 


£-0Be 


00/0355 


A9 


40 


LDA 


£40 




00/0357 


1C 


32 C8 


TRB 


C032 




00/0 35A 


18 




CLC 






00/035B: 


6B 




RTL 






Reference biblbgraphique : CLEFS POUR APPLE 


IGS (2« edition) - 



Restourotion : 

(les champs operondes des PEA sont modifies 
Jors de la sauvegarde de f'ancien vecteur). 



- Sel Vector N =50015 

2] 1=m : 1 =x (listage normal) 

Nouveau S/P dec lenche cheque seconde 

TIC-TAC 



Remise a de ['interruption. 



STAGE INTERNATIONAL 
D'INFORMAIQUE 

ledub MICROTEL LESULASetle 
Centre d'Echong&s fntemolio- 
noun orgonisenf pour la troi-i 
siemeonnee4 stages d'informo 
tique, pour les 15-20 ans pen 
dom les mois de juillet el aout, 
Ces stages se deroulent dans un 
magnifique chateau en Tou 
raine, en presence de groupes 
etrangers [americoins, olle- 
mands, lures...). 
On euro la possibilife de s'iniiier 
egalement qu lir a Tare, au 
theatre, et 6 I equitation... Les 
stages sont realises sur des 
micro-ofdinoleurs compatibles 
IBM PC el durenlfS join. 

Dif i fvillrt ou n juiUri. slage pascal 
on assembieur 

Du If juillef ou 3 oout s'oge bosic 
Dv 2 ocvt av 16 aoM staaebesic 
Ou 16 oout ou 30 aoui slog* postal ou 
Ksembleuf. 

Stage basic: 2740 f 
pension comprisel 

Stage pascal ou osspnWeur 2990 
(pension emprise j. 

RiNSEIGNEMENTS : 

03 — 104. rue Vougirord 
75006 PARIS 

Tel. (1)45,49.26.25. 

TREMPLIN MICRO 



CREATION DE CARACTERES 



Envoyez vos programmes 
6 Tremplin Micro. 



Our veut se devouer ? nous avons besoin de deux ou trots petits programmes 

Plusieurs logiciefs creent des fichiers de caracte- 
res destines a etre impJantes sur I'imprimanre 
Image Writer ou sur une des imprimantes Epson 
ayant Toption "telechargement de caracteres '. 



qui 



Comme de bien entendu, choque auteur a tra- 
vaifle dans son coin (a commencer par moi) ef 
cheque fichier o une structure propre, 
I'empecne de passer sur les autres logiciefs. 

I. Vous trouverez ici la composition des fichiers 
crees par Gribouille pour Image Writer. Ce 
sont des fichiers binoires de 957 caracteres. com- 
poses de 3 elements : 

A. Les 4 octets qui annoncent Jo creation de 
caracteres sur 8 points de targe. Ces 4 octets 

sont Esc - Esc I (valour en decimal : 27 45 27 73. en 
hexadecimal : $1B$2D$1B$49), 

B. Une suite de 950 octets, correspondent d 95 
caracteres. Chacun est decrit sur 10 octets, 

qui sont : 

— l ef octet, le code ASCII du caractere. Nous 
trouvons, de 10 en 10 octets, les valeurs 
32 = espace ($20 en hexadecimal) a 126 = trema 
($7F en hexadecimal). 

— 2 e octet, la lettre H qui symbolise la largeur de 8 
points. On frouvera un H majuscule (72 ou $48) 



si le caractere doit etre imprime en haut (cas le 
plus frequent) et un h minuscule (104 ou $68) s'il 
doit etre en bas (exemple le g ou le q minus- 
cules). 



— Les 8 octets suivants ont des valeurs qui 
determined le dessin de chacune des colonnes 
de 8 points dont le caractere se compose. Zero 
donne une colonne 6 blonc. $AA donne une 
colonne en pointille (10101010 en bmaire : cha- 
que I provoque 1'impression d'un point). 
C. Les 3 derniers octets sont : 

4, qui annonce a I'imprimante la fin des 
caracteres personnalises. 
Esc' (Escape apostrophe = 27 39 ou SIB $27) qui 
rend actifs les caracteres personnalises, 
2. A vous de jouer : si vous avez des fichiers de 

caracleres destines a [Image Writer, mais pro- 
venant de logiciels differenfs, ecrivez (en Basic 
Applesoft ou en Assembleur) les roulines permet- 
tant de passer d un fichier a I autre. II suffira peul- 
etre d'ajouter ou de supprimer quelques octets en 
debut ou en fin de fichier. Le probleme vous poraTlro 
surernent tres simple, mais si vous savez le resoudre 
avec elegance, en offrant aux utilisoleurs eventuels 
une bonne "interface", vous aurez fait ceuvre utile. 

Madeiein* HOD£, auf&ur de Gribouille. 
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Queiques odresses interessantes des apple lie, lie et cs 



CLEOLZ Efface une ligne a pariir de la position contenue dans Y. Y = correspond a 
(64670) HTAB 1 . 

ia VTABl: HTAB1: PRINT "CECl EST SEULEMENT UN EXEMPLE"; 
20 CALL 768 

La ligne sera efface© a 300: AO 07 LDY £07 

pariir du "T" de "EST" 302. JMP FC9E 

$FC36 CLRTOP Au contraire de $FC32 CLRSCR (64562) qui efface la totalite de I'ecran GR, 
(64566) CLRTOP n'en efface que 40 lignes, si bien que la fenetre texte reste intacte. 

CALL 64566 ou CALL - 970 



CROUT1 Efface la fin de la ligne et genere un RETURN. Ainsi, dans I'exemple ci- 
(64907) apres, le curseur sera au debut de fa troisieme ligne : 

1 VTABl : HTAB1 : PRINT "CECl EST UN EXEMPLE": 

20 CALL 64907: REM ou call - 629 

$FC24 Deplace le curseur 6 une position qui doit etre contenue dans I'accumula- 

(64548) teur. Example : 

10 HOME: FORI = 10TO1 STEP - 1: VTAB I: PRINT I: NEXT 

20 1 = 9: GOSUB30: 1 = 3: GOSUB 30: 1 = 0: GOSUB30: END 

30 POKE 769,1: CALL 768 : HTAB 4: PRINF'RECU": RETURN 

300: A9 00 LDA 00 Alimente par le POKE 769 J du Basic 

302 : 4C 24 FC JMP FC24 Place le curseur au debut de la ligne A. 



Place la valeur de I'Accumulateur dans CV ($25) et appelle $FC22 VTAB qui 
(64347) deplace le curseur en CV, 

300: A9 05 LDA 05 Correspond a VTAB 6 

302: 4C 5B FB JMP FB5B Effectue le travail (et CV contient 5). 

La ligne ci-apres, associee aux deux instructions precedentes, provoquera laffichage 

de "ESSAI" au debut des lignes 6 et 20 : 

10 HOME: VTAB 20: PRINT "ESSAI ": CALL 768: PRINT "ESSAI ____ 

STORADV Pour afficher les icones, e'est parfait, mais en colonnes impaires (80 colon- 
(64496) nes), et normal en 40 colonnes. 

Attention ! il faut d'abord activer la carte 80 colonnes. Pour obtenir les icdnes en 40 
colonnes, taper ESC 4 PRINT CHR$ (17). 

300 : A2 40 LDX £40 Pom me ouverte. 

302: 8 A TXA X passe dans A 

303: 20 F0 FB JSR FBF0 Storodv (X et A sont detruits). 

306 : E8 INX 

307 : E0 60 CPX £60 Les icones vont jusqu'6 £5F. 

309: 90 F7 BCC 0302 

30B : 60 

II suffirait de commencer la routine par 2C 55 C0 et de la terminer par 2C 54 C0 pour 
afficher dans les colonnes pa ires. ■ 
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[ 

I UN BUG CORRIGE 



Dans le lie PLOTFNS relusait Dl > 48 et D2 > 48. 
Cetait acceptable puisque GR n avait que 40 colon- 
nes. Oans le He on refusait Dl > 80 et D2 > 48 ce 
qui permettait un bon fonctionnement de PLOT et 
VLIN (avec un controle "lache") mats pour HLIN ca 
ne coflait pas (02 limite 6 48). 

Dans le tIGS on a garde PLOTFNS version lie, et 
on I'utiJise pour PLOT et VLIN qui DONC refusent 
Dl > 48 ou D2 > 48 Poor HLIN on a ecrit une nou 
velle version de HPLOTFNS implantee en $F8D9 qui 
elle refuse Dl > 80 ou D2 > 80. 



SF1EC 


f#e 


et HCS 


SF1EC tie 


SF8D9 IIGS 


PLOTFNS 


JSR 


GETBYT 


JSR 


GETBYT 


GLOTFNS JSR 


GETBYT 






CPX 


£48 


CPX 


£80 


CPX 


£80 






BCS 


GOERR 


BCS 


GOERR 


BCS 


GGOERR 






STX 


FIRST 


STX 


FIRST 


STX 


FIRST 






LDA 


£'.' 


LDA 


£V 










JSR 


SYNCHR 


JSR 


SYNCHR 


JSR 


CHKCOM 






JSR 


GETBYT 


JSR 


GETBYT 


JSR 


GETBYT 






CPX 


£48 


CPX 


£48 


CPX 


£80 






BCS 


GOERR 


BCS 


GOERR 


BCS 


GGOERR 






STX 


H2 


STX 


H2 


STX 


H2 






STX 


V2 


STX 


V2 


STX 


V2 






RTS 




RTS 




JMP 


SF2GC 


...LINCOOR 


GOERR 


JMP 


IQERR 


JMP 


IQERR 


GGOERR JMP 


GOERR 


??????? 



foire leurs propres tests de validite sur Dl et D2 
lorsqu'il s'agit de coordonnees horizontals, il me 
semble qu i I etait plus logique de coder comme 
suit : (voir tobleau de la page 42), 

F22Q est en fait la fin de I'actuelle routine LIN- 
COOR. On y trouve : F220 CPX £48. BCS GOERR, 
RTS e'est tout ce qu'il nous fallait. 
Bien evidemment le JSR GLOTFNS de la routine 
HLIN devrait etre remplace par un JSR PLOTFNS, 

Si je ne m'abuse, tous les centrales necessaires 
sont faits et Ton conserve l implantation et I'encom- 
brement des routines originelles. 

Pendant que j y pense, et bien que cela n'ait rien d 
voir avec leGR, je vous signale... (suite page 42) 

TREMPLIN MICRO a* 



Bonne nouvelle, les auteurs du IIGS ont corrige un 
bug de I'APPLESOFT. 

Un examen detaille de la ROM du nouvel APPLE 
montre que Ton a repris la ROM ASOFT du tic en y 
corrigeant un bug en GR. Dans le Ik, PLOT, HLIN et 
VLIN utilisaient la routine PLOTFNS en SF1EC pour 
recuperer D1D2 deux valeurs determinant les 
parametres necessaires a ces routines. 
Pour PLOTD1 = abscisse, D2 = ordonnee. 
Pour HLIN Dl = abscissel , D2 = abscisse2. 
Pour VLIN Dl = ordonneel, D2 - ordonnee2. 



Pourquoi tout cela me direz-vous ? Tout simple- 
ment parce que I on peut dessiner en GR 80 colon- 
nes ce qui permet par exemple de realiser tres faci- 
lement des presentations du genre histogramme. 

Pour ce faire, il faut activer normalement le mode 
80 colonnes. activer le mode DGR comme le mode 
DHGR par POKE 49278,0 (pour He) puis POKE 
49246 0. Pour quitter faire POKE 49247,0, puis 
POKE 49279,0 et enfin TEXT. 

Bien entendu le POKE 49234,0 classique vous don- 
nerait un ecron GR complet. 

Je note au passage que les auteurs de cette der- 
niere revision ont apparemment gaspille 29 octets 
en ROM F8. Puisque les routines sont obligees de 



que contra i rem ent au 6502, le 65816 considere, 
meme en mode emulation le BRK comme une ins- 
truction sur 2 octets. Cela peut donner des r^sultots 
"bizarres" lors d'un desossemblage. Meme "pro- 



bleme" ovec le mini-assembleur qui exige desormais 
un operande de un octet apres le BRK. Si vous sou- 
haitez mettre un unique 00 il fout utiliser :0Q au lieu 
de BRK (c'est le mode gornissage de table). 



PLOTFNS 


JSR GETBYT 


F209 


LINCOOR 


irtchongee 




STX FIRST 










JSR COMBYTE ($E74C) 


F225 


PLOT 


JSR NPLOT 




STX H2 






suite inchangee 




STX V2 


F241 


VLIN 


JSR LINCOOR 




RTS 






TXA 


NPLOT 


JSR PLOTFNS 






TAY 




JMP F220 ($F22G) 






CPY £40 


NVUN 


JSR F220 






BCS GOERR 




TXA 






LDX FIRST (change) 




JMP VUNE 






JMP NVLIN (change) 



Yvan KOENIG. 



TESTEZ CRCS ! 



100 TEXT :D* = CHR$ (4): PRINT D*"PR£3" : PRINT : GOSUB 175 627A 

105 CALL 768: GOSUB 170 7EB3 

110 POKE 49244,0 0C1E 

115 POKE 49236,0: POKE 49234,0: POKE 49238,0: POKE 49232,0: GOSUB 170 9BA0 

120 FOR 1=0 TO 47: COLOR= INT < RND (1) * 15): HLIN 0,79 AT I: NEXT BDDF 

125 FOR J = TO 79: COLOR= INT ( RND (1) * 15): VLIN 0,47 AT J: NEXT 74E2 
130 FOR J = 79 TO STEP - 1: COLOR= INT ( RND (1) * 15): VLIN 0,47 A 

T J: NEXT D3A3 
135 FOR I = 47 TO STEP - 1: COLOR= INT < RND (1) * 15): HLIN 0,79 A 

T I : NEXT 4DA0 

1 40 IF PEEK (49249) < 128 THEN 120 59AF 

145 CALL 76B B331 

150 POKE 49247,0: POKE 49236,0: POKE 49233,0 15CA 
155 FOR 1 = 1 TO 3: VTAB 10 + I: HTAB 30: PRINT " " : 

NEXT : VTAB 12: HTAB 31: PRINT "<M)ENU DISQUETTEctG GET R$ : PRI 

NT : CALL 768 D1EC 

360 IF R* = "M" OR R$ = "m" THEN PRINT D$"RUN MENU , D 1 " 753E 

165 HOME : END 8E51 

170 CALL - 198: FOR I = 1 TO 100 :X = PEEK (49200): NEXT : RETURN 1189 

175 FOR I = 768 TO 794: READ R: POKE I,R: NEXT : RETURN 0918 
180 DATA 162,23,138,32,71 ,248,160,39,169,78,145,38,44,85,192,145,38,44, 

84,192, 136,16,243,202,16,232,96 E898 
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TriDos 



UTI LITAIRE 

POUR APPLE lie 



Si vous possedez un Apple Ik (128 ou 384 Ko) et une 
imprimante ImageWriter, offrez-vous TriDos (version 
2-3) en confionce. Cet utilitoire captero directement le 
catalogue de vos disquettes pour Cincture dans so pro- 
pre base de donnees.,. quel que soil le systeme 
d'exploitation utilise : Pascal, DOS 3.3 ou ProDOS. 

QUESTI ON t Et si j 'utilise un quatrieme systeme ? 

REP QNSE t Vous vous contenterez alors de saisi r 
manuellement la liste des fichiers de 
la disquette incriminee... 

Les points forts de TriDos : 

• Simplicity de I'utilisation grace a des menus parlants. 

• Possibility de supprimer des titres ou des disquettes, ou 
encore de modifier lo liste des fichiers de la base de 
donnees : 

• Creation facultative d'un index exploitable avec Apple- 
Works ; 

• Fonction d'aide integree ; 

• Mode d'emploi succincte, mais clair. 

SES L1MITE5 : TriDos vous permettra d'enregistrer 
200 disquettes et 500 titres diffe- 
rents. Cela parait enorme, mais lo limite est ossez 
rapidement atteinte, ce qui est normal. II est evidem- 
ment souhaitable de placer la base de donnees sur 
une disquette separee. 

COMPATIBILITY : Avec l Appte lie, mauvaise. 

Avec le GS, il existe un pro- 
bleme d'affichoge (ecran de presentation) facile a 
resoudre en modifiant une ligne du programme (non 
protege) en Basic. Ensuite, il semble que les choses se 
possent normalement, mais Badaroux C,A. ne garan- 
tit pas cette compatibilite. 

CONCLUSION ; Quand on soit que TriDos n est 
vendu que 180 F TTC on a bien envie 
de le commander les yeux fermes. On en sera pas dec.u ! 

NESTOR 

Bodnroui CA. Mi rue Legendre 75017 PARIS PARIS Ivenle dirette. franco) 



LE LANCAGE C 



Introduction a 
la programmation 





T0UJ0URS LE LANCACE C 



Franchement, si vous desirez, programmer en C — et je 
crois que vous y pensez serieusernent — , etudiez cette 
excellente INTRODUCTION A LA PROGRAMMATION. 

Thomas Plum, president de la Societe Plum Hall Inc. II, 
vous prouvera que le C peut devenir Votre langage 
prefere- Vous apprecierez la clarte des explications, 
mois aussi le nombre important des examples, 

C est a mon avis I'une des meilleures introductions 
au C . Les conditions de portability y sont bien trai- 
tees, et pas seufement sur de gros systemes. Un guide 
des instructions du langage et des bibliotheques 
otfertes par UNIX est fourni en annexe. Ceci dit, il est 
evident que les utilisateurs d'Apple — et notamment 
du GS — n'y trouveront rien concernant Leur machine. 

Par contre, apres avoir potasse ce bouquin, ils seront 
fin prets pour ecrire des programmes geniaux ! 

"C" est 6 dire ! 



Inter Edition! 87. rue du Maine 7501 4 PARIS 



NESTOR 

(344 pages). 



■■■■■WWW— 
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MODIFIER.PRO 



10 TEXT : HOME 1C5A 

20 D* = CHR* (4) B3A4 

30 PRINT LH" BLOAD OBJ.A*2AO0" 

40 PRINT D*"BRUN MOD1F1" 

50 PRINT LH"BLOAD DESAS .PRO ,A*2E0E>" 

60 PRINT Dt" BSAVE NEWOB J,A*2800 , L4608" 

70 PRINT "Mamtenant it faut changer l'ad 

resse du -fichier" D67? 
80 PRINT "dans le directory principal ave 

c voire DiskZAP" 55*1 
90 PRINT "L'adresse enreoistree *2800 doi 

t deuenir $9800" 03AB 

MODIFIER. DOS 

10 TEXT : HOME 

20 D* = CHR$ (4) B3A4 
30 PRINT D*" BLOAD SRCRR . OBJ ,A*40D0" 
40 PRINT D* "BLOAD DESAS . DOS 1 At4DAl " 
50 POKE 17993,133 3689 
60 POKE 17994,151 048A 
70 POKE 19526,164 ED87 
80 POKE 19530,151 D37E 
90 PRINT D*"BSAUE SRCRR . OB J . 2GS . A*4000 , L* 

10EC" C060 

MODIFI (BSAVEMODIFI.AS300.L131) 



0300: AO 00 34 3C A? 2A 85 3D A? CC 85 3E A? 30 85 3F 860A 

0310: 84 42 A9 28 85 43 20 2C FE A2 3F 8E 4A 2B A2 99 6CC5 

0320: 8E 25 28 8E 2D 28 E8 8E 53 28 BE 41 31 BE 4C 31 B5BA 
0330: 8E 04 34 8E 94 34 E8 BE FO 33 E8 8E 66 30 8E EB 

0340: 30 8E 59 31 8E 73 31 8E B9 31 BE EB 36 8E F3 36 1A58 

0350: EB 8E 69 28 8E 6C 28 8E FA 28 BE 4E 30 8E 80 30 4E23 

0360: 8E B4 30 8E C8 30 BE FF 30 BE ft 36 BE 95 37 BE 1BCB 

0370: F7 38 A2 9F 8E DE 32 8E 03 33 A2 Fl 8E DD 32 BE 1490 

0380: 02 33 60 9695 

DESAS. PRO (BSAVE DESAS. PRO AS2EQD ,L5 12) 

2E0D: A6 3A A4 

2E10: 3B 20 96 FD 20 48 F9 Al 3A AB 4A 90 05 6A 80 OC 12D7 

2E20: 29 87 4A AA BD 48 9F 20 79 FB DO 04 AO FC A9 00 A2F5 
2E30: m BD BF 9F 85 2E 29 03 85 2F 20 DF 9F FO 18 29 

2E40: 8F AA 98 AO 03 EO 8A F0 08 4A 90 08 4A 4A 09 20 F27B 

2E50: 88 DO FA C8 88 DO F2 60 20 0D 9E 48 Bl 3A 20 DA 74BC 

2E60: FD A2 01 20 4A F9 C4 2F C8 90 Fl A2 03 CO 04 90 6C38 

2E70: F2 6B A8 89 CB 9E 85 2C B9 0B 9F 65 2D A9 00 AO 6E33 

2E80: 05 06 2D 26 2C 2A 88 DO FB 69 BF 20 ED FD CA DO BFDO 

2E90: EC 20 48 F9 A4 2F A2 06 EO 03 FO 1C 06 2E 90 OE F589 

2EA0: BD A2 9F 20 ED FD BD 9C 9F FO 03 20 ED FD CA DO BD9 

2EB0: E7 60 88 30 E7 20 DA FD A5 2E C9 EB Bl 3A 90 F2 B8CE 

2EC0: 20 56 F9 W E8 DO 01 C8 4C 40 F9 1C BA 1C 23 5D 9361 

2ED0 : BB IB Al 9D 8A ID 23 9D 8B ID Al 1C 29 19 AE 69 3409 



Ad 




Par Yvan KCENIG 

Je viens juste d'acheter un IIGS en 
remplacement de mon vieil APPLE II 
plus. Helas ! !es premieres difficul- 
ty surgtssent ! 

Un de mes outils favoris est I'assem- 
bleur MERLIN accompagne du desas- 
sembleur SOURCEROR. Pour MERLIN, 
pas de gros probleme, si ce n est que 
I on doit passer par une carte inter- 
face imprimonte pour se servir de la 
commande PUT. Sinon le port serie 
semble utilisable. 

Le vrai probleme reside dans 
I'impossibilite d'utiliser SOURCEROR 
qui appelle une routine disparue 
LIST2. J'oi extrait d'un de mes 
anciens programmes le module 
DESAS legerement remanie, Ce 
numero de Tremplin etant quasiment 
complet. les fichiers sources figure- 
ront uniquement sur la disquette. 



UN REM EDE POUR 2 VERSIONS 

• Sous DOS 3.3 je traite le cas de 
BIG. MAC. C, tel qu'il m'a ete 
vendu par CALL A.P.P.L.E. 

• Sous ProDOS je traite le SOURCE 
ROR OBJ qui figure sur le disque 
portant la reference V2.52. ache- 
tee chez Roger Wagner, 

PRODOS 

Placez sur une disquette le tlchier 
SOURCEROR OBJ. rebaptise OBJ. 
Ajoutez MODIFIER.PRO, MODIFI et 
DESAS.PRO. Faites olors RUN MODI- 
FIER.PRO. Le fichier OBJ sera charge 
en $2A0Q, coupe en deux en abais- 
sant le debut en $2800. 

31 octets seront ajustes. Le module 
DESAS. PRO sera place dans le trou 
de 2 pages precedemment cree. Le 
tout sera sauve sous le nom 
NEWOBJ. Tout cela se faisant en bos 

GUY HACHETTE 



sur lies 



de la memoire, il vous faudra corri- 
ger I'adresse du fichier en interve- 
nant directement dans le directory a 
I'aide de votre programme de ZAP 
favori (en fait ce sera peut-etre plu- 
tot celui qui acceptera de travailler 
sur le IIGS car les ProZAP de NIBBLE 
e, de CALL APPLE sont faches avec 
cette machine, tandis que celui de 
POM'S25 fonctionne). Quand tout 
cela sera realise, reportez NEWOBJ 
sous le nam SOURCEROR/08J sur 
une copie de MERLIN, soyez prudent. 

DOS 3.3 OVeC BIG. MAC. C 

Sur une copie, renommer ASM. OBJ 
en ASM-08J, ASM. OBJ //E en ASM. 
OBJ, SRCRR.OBJ en SRCRR-OBJ. 
SRCRR.OBJ LC en SRCRR.OBJ puis, 
copiez SRCRR.OBJ sur un disque por- 
tent MODIFIER. DOS et DESAS.DOS. 

RUN MODIFIER. DOS placera 
DESAS.DOS au debut de la table des 
labels predefinis (qui seront done 
perdus), corrigera 4 octets et sau- 
vera le resultat sous le nom 
SRCRR.OBJ. 2GS qu'il vous faudra 
transferer sur une COPIE de 
BIG.MAC.C sous le nom SRCRR.OBJ. 
Attention ! n'utilisez pas I'utilitaire 
LABELER pour modifier la table des 
labels avec ces patches en place. 

A l intention de ceux qui n'ont pas la 
disquette Tremplin Micro, je donne 
un tableau des 22 differences entre 
DESAS.PRO et DESAS.DOS. 



DESAS 


.PRO .DOS 


DESAS 


.PRO 


DOS 


2E25 


4B DF 


2E7A 


9F 


96 


2E26 


9F 96 


2EA1 


A2 


36 


2E32 


8F 23 


2EA2 


9F 


97 


2E33 


9F 97 


2EA7 


9C 


30 


2E3B 


DF 73 


2EA8 


9F 


97 


2E3C 


9F 97 


2FE3 


A9 


3D 


2E59 


OD Al 


2FE4 


9F 


97 


2E5A 


9E 95 


2FEC 


CB 


5C 


2E74 


CB 5F 


2FED 


9F 


97 


2E75 


9E 96 


2FF2 


58 


EC 


2E79 


OB 9F 


2FF3 


9E 


95 


Bon courage et a bientot. 


V. KCENIG 
■ififiifi 



2EE0: 


A8 


19 


23 


24 


53 


18 


23 


24 


53 


19 


Ai 


AD 


1A 


58 


58 


A5 


6FEC 


2EF0i 


69 


24 


24 


AE 


A£ 


A8 


AD 


29 


8A 


7C 


8B 


15 


9C 


6D 


9C 


A5 


C676 


2F00: 


69 


29 


53 


84 


13 


34 


11 


A5 


69 


23 


AO 


D8 


62 


5A 


48 


26 


9194 


2F10: 


62 


9* 


88 


54 


44 


C8 


54 


68 


44 


E8 


94 


C4 


B4 


08 


84 


74 


77D2 


2F20: 


B4 


28 


6E 


74 


F4 


cc 


4A 


72 


F2 


A4 


BA 


06 


AA 


A2 


A2 


74 


28C2 


2F30: 


74 


74 


72 


44 


68 


82 


32 


82 


72 


22 


72 


1A 


1A 


26 


26 


72 


0994 


2F40; 


72 


88 


CB 


C4 


CA 


26 


48 


44 


44 


A2 


CB 


OF 


22 


FF 


33 


CB 


E9DE 


2F50: 


62 


FF 


73 


03 


22 


FF 


33 


CB 


66 


FF 


77 


OF 


20 


FF 


33 


CB 


ADFE 


2F60: 


60 


FF 


70 


OF 


22 


FF 


39 


CB 


66 


FF 


7D 


0B 


22 


FF 


33 


CB 


BEOF 


2F70: 


M 


FF 


73 


11 


22 


FF 


33 


CB 


A6 


FF 


87 


01 


22 


FF 


33 


CB 


6A94 


2F80: 


60 


FF 


70 


01 


22 


FF 


33 


CB 


60 


FF 


70 


24 


31 


65 


78 


00 


51F0 


2F90: 


21 


81 


82 


59 


40 


91 


92 


86 


4A 


85 


90 


49 


5A 


D9 


00 


D8 


9733 


?far ■ 


A4 

m 




fin 


Ar 


A9 


Ar 


A3 

Hi? 


AA 

MO 


Ad 
HI 


i c 


1 4 


1 A 
In 






it 


jM 


aria 


2F80: 


3C 


52 


5A 


64 


72 


74 


7A 


7C 


89 


92 


9C 


9E 


82 


D2 


F2 


FC 


5EEF 


2FC0; 


C3 


AE 


CI 


8A 


OD 




Af 


00 


38 


FB 


37 


FB 


39 


21 


36 


21 


r CHt 


2FDQ: 


3A 


FB 


FA 


3B 


FA 


F9 


22 


21 


3C 


FA 


FA 


3D 


3E 


3F 


FC 


98 


D31B 


2FE0: 


A2 


16 


DD 


A9 


9F 


F0 


04 


CA 


10 


FB 


60 


BD 


CB 


9F 


AO 


00 


87C7 


2FF0: 


60 


20 


58 


9E 


20 


53 


F9 


B5 


3A 


84 


36 


A9 


00 


60 


D9 


F6 


D738 


3000] 


El 


EE 


CB 


74 


74 


76 


C6 


00 


CF 


C5 


CE 


C9 


C7 
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DESAS.DOS 








(BSAVE 


DESAS. DOS.AS2E0D 


L512] 


2E0D: 


A6 


3A 


A4 




























6D84 


2E10; 


3B 


20 


96 


FD 


20 


48 


F9 


Al 


3A 


A8 


4A 


90 


05 


6A 


80 


OC 


12D7 


2E20i 


2? 


87 


4A 


m 


BD 


DF 


96 


20 


79 


FB 


DO 


04 


AO 


FC 


A9 


00 


8A6Q 


2E30: 


aa 


BD 


23 


97 


85 


2E 


29 


03 


85 


2F 


20 


73 


97 


F0 


18 


29 


9D0F 


2E4Q: 


8F 


aa 


98 


AO 


03 


E0 


8A 


F0 


OB 


4A 


9fl 


06 


4A 


4A 


09 


20 


F278 


2E50: 


88 


DO 


FA 


CB 


88 


DO 


F2 


60 


20 


Al 


95 


48 


Bl 


3A 


20 


DA 


B347 


2E60 : 


FD 


A2 


01 


20 


4A 


F9 


C4 


2F 


CB 


90 


Fl 


A2 


03 


CO 


04 


90 


6C38 


2E70s 


F2 


68 


A 8 


B9 


5F 


96 


85 


2C 


B9 


9F 


96 


85 


2D 


A9 


00 


AO 


214A 


2E80: 


05 


06 


20 


26 


2C 


2A 


88 


DO 


FB 


69 


BF 


20 


ED 


FD 


CA 


DO 


BFD0 


2E?0i 


EC 


20 


48 


F9 


A4 


2F 


A2 


06 


EO 


03 


Ffl 


1C 


06 


2E 


90 


0E 


F589 


2EA0: 


BD 


36 


97 


20 


ED 


FD 


8D 


30 


97 


F0 


03 


20 


ED 


FD 


CA 


00 


1AAF 


2EB0 : 


E7 


60 


88 


30 


E7 


20 


DA 


FD 


A5 


2E 


C c ' 


E8 


81 


3A 


90 


F2 


BBCE 


2EC0: 


20 


56 


F9 


AA 


E8 


DO 


01 


C8 


4C 


40 


F9 


1C 


BA 


1C 


23 


5D 


9361 


2ED0: 


88 


IB 


Al 


9D 


8A 


ID 


23 


9D 


88 


ID 


Al 


1C 


29 


19 


AE 


69 


34C9 


2EE0: 


AB 


\9 


23 


24 


53 


IB 


23 


24 


53 


19 


Al 


AD 


1A 


5B 


58 


A5 


6FEC 


2EF0 r 


69 


24 


24 


AE 


AE 


A8 


AD 


29 


BA 


7C 


BB 


15 


9C 


6D 


9C 


A5 


C67B 


2FO0: 


69 


29 


53 


84 


13 


34 


11 


A5 


69 


23 


AO 


D8 


62 


5A 


48 


26 


9194 


2F10: 


62 


94 


88 


54 


44 


CB 


54 


68 


44 


E8 


94 


C4 


84 


08 


84 


74 


77D2 


2F20: 


84 


28 


6E 


74 


F4 


cc 


4A 


72 


F2 


A4 


8A 


06 


AA 


A2 


A2 


74 


28C2 


2F3D s 


74 


74 


72 


44 


68 


82 


32 


B2 


72 


22 


72 


1A 


1A 


26 


26 


72 


0994 


2F40i 


72 


88 


C8 


C4 


CA 


26 


48 


44 


44 


A2 


CB 


OF 


22 


FF 


33 


CB 


E9DE 


2F50: 


62 


FF 


73 


03 


22 


FF 


33 


CB 


66 


FF 


77 


OF 


20 


FF 


33 


CB 


ADFE 


2F6Q: 


60 


FF 


70 


OF 


22 


FF 


39 


CB 


66 


FF 


7D 


0B 


22 


FF 


33 


CB 


BEOF 


2F70j 


A6 


FF 


73 


11 


22 


FF 


33 


CB 


A6 


FF 


B7 


01 


22 


FF 


33 


CB 


6A94 


2F80: 


60 


FF 


70 


01 


22 


FF 


33 


CB 


60 


FF 


70 


24 


31 


65 


78 


00 


51F0 


2F90: 


21 


81 


82 


59 


4D 


91 


92 


B6 


4A 


B5 


9D 


49 


5A 


D9 


00 


D8 


9733 


2FA0: 


A4 


A4 


00 


AC 


A9 


AC 


A3 


A8 


A4 


12 


14 


1A 


1C 


32 


34 


3A 


4C34 


2FBQ: 


3C 


52 


5A 


64 


72 


74 


7A 


7C 


89 


92 


9C 


9E 


82 


D2 


F2 


FC 


5EEF 


2FC0: 


C3 


AE 


CI 


8A 


8B 


A5 


AC 


00 


38 


FB 


37 


FB 


39 


21 


36 


21 


FEAE 


2FD0: 


3A 


FB 


FA 


3B 


FA 


F9 


22 


21 


3C 


FA 


FA 


3D 


3E 


3F 


FC 


9B 


D318 


2FEQ: 


A2 


16 


DD 


3D 


97 


F0 


04 


CA 


10 


FB 


60 


BD 


5C 


97 


AO 


00 


48DF 


2FFQ: 


60 


20 


EC 


95 


20 


53 


F9 


B5 


3A 


84 


3B 


A9 


00 


60 


D9 


F6 


43C3 


30Q0: 


El 


EE 


CB 


74 


74 


76 


C6 


00 


CF 


C5 


CE 


C9 


C7 
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L'AUTEUR 

We le 29 novembre 1950 a Cleveland dans 
fOhio, Kevin OVONNELL est fame de 7 
/reres et sceurt. En 1966, toute la famille 
O'DONNEIL part s'installer a Seoul en 
Coree do Sud Kevin, dipfome de I'ecole 
americaine de Seoul en 1 968, regagne les 
Etats-Unis et integre IVniversite de Yale 
dans le Connecticut. Cest a cette epaque 
que la lecture de romans de Science- 
Fiction lui donne envie decrire ses pro- 
pres nouvelles. Une licence de chinois en 
poche, if port pour Hong Kong en 1972, 
puis a Taiwan, en tant que professeur 
d anglais dans un college. II vend alors 
ses premieres nouvelles a la revue "Ana- 
log Science-Fiction" avant de regogner le 
Connecticut. Pendant trots ans. il exerce 
success.ivemenj une douzaine de jobs a 
mi-temps afin de s'investir a fond dans 
I'ecriture. II se marie en 1974 avec Lillian 
Kia Chou Tchong, une jeune Chinoise ren- 
contree a Yale. II continue de vendre des 
histoires courtes a des revues de 
Science- Fiction ou de Fantastique et se 
lance enfin dans I'ecriture de son premier 
roman, roman qui sero publie en 1979 
sous le titre "Bander Snatch" aux editions 
Bantam Books. De 1979 a 1983, il est 
redacteur. puis directeur du magazine 
"Empire for the Science-Fiction writer", 
magazine s'adressant aux auteurs de 
romans de Science-Fiction et d'ouvrages 
. d'anticipotion. Depuis, il a publie sept 
auires romans dont quotre forment les 
premiers tomes de la celebre sehe 'The 
journeys of Mc Gill Feighan ". Pfusieurs de 
ces ouvrages ont ete nomines pour le 
prestigieux prix americain "Nebula 
Award'. Passionne d'informaiique, il 
consacre aujourdhui une partie de son 
temps a la formation au sein des ent re- 
prises, formation au iraiiemenf de texte 
et 6 to gestion de bases de donnees. II vit 
a Sunny Valley en Californie. 



KEVIN O'DONNELL a regu le prix 

MANNESMANN TALLY 1987 



pour son roman 



ORA : CLE 



LE LIVRE 

Annee 2188 : un monde automalise, inlor- 
motise, branche sur tous les reseaux, ou la 
plupart des gens travaillen! 6 domicile face 
a des consoles d'ordinateurs, font leurs 
courses de chet eux par transmoteur, pren- 
nent I'air sur leur lerrasse et se risquent 
eventuellemeni a rendre parfois visile a 
leur voisin d'immeuble. 

Cest qu'il ne fait pas bon sortir en 21 88. II 
est interdit de se promener dons la cam- 
pagne et meme dons les rues, afin de 
laisser repousser la vegetation dans 

I espoir qu elle absorbera fa pollution. 
Des extraterreslres, fes Dacs, inlrus du 
systeme solaire depuis quelques annees, 
gueUent le passont. lis onl la facheuse 
manie de se livrer a la chasse a I'humain 
et lorsqu'on transgresse leur curieux 
code de lo chasse, ils peuvent desinle- 
grer un immeuble ou une region entiere. 

Mais en dehors de ces petits inconve- 
nient, Ael Elcatrevain vit heureux avec 
son epouse Emdee Aussincanfe, enlre 
son clavier, son holophone et les bonsois 
de sa terrasse. Jusqu au jour ou il man- 
que d'etre lue par un Dac, parce que son 
guette-Dac est en ponne. Simple acci- 
dent ? pas sGr, El lorsque son iransma- 
teur explose, est-ce une coincidence 7 Un 
singulier Wef. qui est un as de la pro- 
grammalian, va I aider a y voir cloir. Ael, 
sous lapparence d'un paisible historien, 
est en fail un membre acfif de I'ORA : CLE 
(Opinions, Recherches, Avis : Consultants 
par Liaison Elecironique), et comme tel, 
relie a ce puissant reseau par un implant 
situe derriere son oreille gauche. L'iden- 
lite des consultants par liaison efertroni- 
que, les CLE (prononcer Seeley) est un 
secret farouchement garde. Qui peut 
avoir perce le secret de I identite d'Ael et 
qui peut bien avoir des raisons de luer un 
historien pacifique ? 

II y a dans l air comme une odeur de 
coup d'Etat et quand Ael comprendro 
l enjeu de la bataiHe, il commencera a 
regreller d'avoir ete si curieux, et 
peut-etre d avoir lue un Dac. 



LA FONDATION 

LA FONDATION MANNESMANN TALLY est une 
association creee par la societe MANNESMANN 
TALLY, premier consfructeur europeen d'impnman- 
tes et nolommenl fournisseur de I'Educotion Noiio- 
nale dans le cadre du plan Inlormotique Pour 
Tous' . Cette association a pour buls ; 

• la promotion et la ditf usion des ceuvres d'imogi- 
nalian mettanf en scene linlorrnatique ; 

• la creation, la gestion el la mise en forme du 
reglemeni du PRIX MANNESMANN TALLY 
recompensanl le mejlleur ouvrage liMeraire. 
recit ou roman, inspire de l intormahque . 

• I'aide d la recherche scientifique vers les techni- 
ques dttes de Intelligence Artilicielle". 

Le bureau de lo FONDATION es1 constitue de 
trois membres Monsieur Dano ANGELINI 
{Directeur General de MANNESMANN TALLY 
France en qualite de President}, Monsieur Jac- 
ques CHAMPAGNAC (Directeur Commercial en 
qualite de Tresorier). et Monsieur Thierry 
WEILHOFF IDiredeur General de lagence 
WELLCOM en qualite de Secretaire General). 

Les membres du jury du PfitX MANNESMANN 
TALLY sont membres d'honneur de droit de la 
FONDATION, le President du jury est egalo 
menl President d'honneur de la FONDATION, 
Pour la premiere annee, le Bureau de to FON- 
DATION a designe Monsieur Bernard LENTERIC 
comme President du jury. Le siege de ta FON- 
DATION est fixe 249 rue Saint- Jocques dans le 
Seme, dons les bureaux de WELLCOM, ogence 
conseil en communication de lo societe MAN- 
NESMANN TALLY, 
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GUY-HACHETTE 



LANGAGE MACHINE 



ProDOS 



GS 



NESTOR 



^ m TRANSBIN 



Cetfe demonstration* et la double routine LAA qu'elle met en place nous montrent 
comment transferer un fichier binaire du banc dans un autre banc (ici le 2), puis y 
lire les informations qu'il contient. Pour clorifier les procedures, nous utilisons au 
maximum le vieil Applesoft, ne serait*ce que pour dernontrer qu'il peut encore 
s'Qccommoder (en association avec quelques octets de LAA) d'une technologie aussi 
avancee que celle du GS. 

' < e u ichi j f M6 SSt S6nS ^ contenir 3362 mots de 6 lettr «s. mois vous pouvez foire des essais avec une dizaine de mots (si le 
fichier des mots de 6 lettres vous interesse, commandez tout simpfement lo disquette numero 1 1 de Tremptin Micro). 



VARIABLES : 

D : adresse a partir de 
laquelle le fichier 
est implante (quel 
que soit ici le bone), 

L : D + longueur du 
fichier -6. 



On dispose I'adresse 
du mot a lire dans les 
memoires $6-7-8 de 
la page zero (ligne 
basic 60). Vindication 
du banc utilise se 
trouve en $8. 



10 TEXT : NORMAL : D* = CHR* <4>: GOSUB 2 

00 B3BA 
15 PRINT D*"PR£3": PRINT : HOME EA23 
20 INVERSE : PRINT " TRANSFERT D'UN FICHI 
ER BINAIRE DANS LA MEMO I RE HAUTE DE L* 
APPLE II6S & LECTURE " s NORMAL 8D34 
30 PRINT D* " BLOAD M6,A*2000" 36BE 
40 CALL 768: REM TRANSFERT EN 02/200 
50 D = 81 92 i L = 28358: POKE 8,2: REM POUR 
2/D 

60 POKE 6,D - INT <D / 254) * 256s POKE 

7, INT <D / 256): REM POUR../0000 
70 CALL 793: REM LECTURE ET AFFICHAGE 
80 PRINT : GOSUB 190 "563E 
90 IF PEEK (49152) = 27 THEN 110 
100 D = D + 6: IF D < L THEN 60 
110 HOME : f TAB 22: PRINT "<M)ENU DE DISQU 
ETTE c_tG tt ? : GET R* ? PRINT S IF R* = "M 
" OR R* = "m" THEN PRINT D*"RUN MENU" 
190 CALL - 198: POKE 49168,0s WAIT 49152, 

128: POKE 49168,0: RETURN 9853 
200 FOR I = 768 TO 807: READ R: POKE I,R: 

NEXT : RETURN EE 13 

210 DATA 8,24,251.194,48,139,169,204,78,16 
2 , , 32 , 1 60 , , 32 , 84 , 2 , , 1 71 , 226 , 48 , 56 , 2 
5 1 , 40 , 96 , 1 60 , r 1 83 , 6 , 9 , 1 28 , 32 , 237 , 253 , 
200 , 192,6, 144,244,96 BA64 
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Pour deplacer un bloc de donnees 
(en utilisant MVli), on doit avoir : 



test 




• Le nombre d'octets a transferer moins un (ici $4ECB = 20171) dans I'Accumulateur. MVN 
decrementera 1'accumulateur au fur et a mesure du transfert ; on aura A = $FF a Tissue du 
transfert ; 

• Les 16 bits de poids faibles de Tadresse-source (ici $2000... du banc 01) dans le registre X ; 

• Les 16 bits de poids faibles de I'adresse destinataire (c'est encore $2000, mais du banc 02, 
dans notre exemple) dans le registre Y ; 

• Le numero du banc de destination dans le second octet de ['instruction MVN ; 

• Le numero du banc-source dans le troisieme octet de {'instruction MVN. 

Ainsi, 54 02 00 fait le transfert de vers 2 et 54 02 transfers le bloc de 2 vers 0. 



TRANSFERT Replacement de bloc) 



= m 


= x 


l 


= LCbank (0/1) 


A partir 


00/0300 


: 08 






PHP 




00/0301 


: 18 






CLC 




00/0302 


: FB 






XCE 




00/0303 


: C2 


30 




REP 


£30 


00/0305 


: 8B 






PHB 




00/0306 


: A9 


CB 


4E 


IDA 


£4ECC 


00/0309 


: A2 


00 


20 


LDX 


£2000 


00/030C 


; AO 


00 


20 


LDY 


£2000 


O0/030F 


; 54 


02 


00 


MVN 


0002 


00/0312 


: AB 






PLB 




00/0313 


: E2 


30 




SEP 


£30 


00/0315 


: 38 






SEC 




00/0316 


: FB 






XCE 




00/0317 


: 28 






PLP 




00/0318 


: 60 






RT5 





] 



_ 



J 



Contenu du registre d'etat empile. 

RetenueaO + XCE = mode natif. 

Commutation en mode natif pur (16 bits). 
Registre DB (bone de donnees) empile. 

Voir explication en bas de page. 

Deplacement du bloc en 02. 
Recuperation de DB (banc de donnees). 
Commutation en mode natif mixte (8 bits) 

Retenue a 1 + XCE = mode emulation. 

Recuperation du registre d'etat, 
Retour. 



LECTURE DANS UN AUTRE BANC 



1 =m 


= x 


1 


= LCbank (0/1) 




Taper 1 = m : 1 = x pour mode emulation. 


00/0319 : 


AO 


00 




LDY 


£00 


Registre Y=0 (compteur). 


00/031 B : 


B7 


06 




LDA 


°06§.Y 


Lecture de I'octet a I'adresse $6-7*8 + Y. 


00/031 D: 


09 


80 




ORA 


£80 


Pour affichage normal. 


00/031F : 


20 


ED 


FD 


JSR 


FDED 


COUT off iche le caractere. 


00/0322 : 


C8 






INY 




On continue jusqu'a Y = 6 (0 a 5). 


00/0323 : 


CO 


06 




CPY 


£06 


00/0325 


90 


F4 




BCC 


031Be-0Ce 




00/0327 


60 






RTS 




Retour. 



GUY-HACHETTE 



GRAPHISME 




Roland JOST 



ALEALICNES 



Void un programme en assembleur qui permet de tracer des lignes joignant des points dis- 
poses aleafoirement sur un ecran HGR. II correspond d la demande d'un lecteur de TREM- 
PUN MICRO (n°10, page 58). Roland JOST avoue n'en avoir pas bien saisi I'interet pratique, 
mais comme exercice de programmation, il en vaut bien un autre, pas vrai ? 



ALEALIGNES a le meme effet que le programme BASIC suivant : 
10 HGR2:HCQLOR = 3 

20 X = INT(279 *RND(1)): Y = INT(191 * RND(l)): 
HPLOT X,Y 

3B X = INT(279 *RND(1)): Y = INT(191 * RND(l)): 

HPLOT TO X,Y 
40 IF PEEK(- 16384) ,127 THEN END 
5a GOTO 30 

POUr tester ALEALICNES : HGR2: CALL 768 

Un appui sur une touche interrompt le trace. On 
pourra le relancer par un nouveau CALL 768. 

QUELQUES COMMENTATES : 

Tout d'abord une remarque importonte : il est bien 
connu que lo fonction RND de I'Applesoft ne fournit 
pas de vraies series aleatoires. En effet, le plus sou- 
vent, apres un certain temps la fonction tourne en 
rond. On peut s'en rendre compte par le fait que 
meme apres une duree ossez longue, ALEALIGNES ne 
remplit pas entierement I 'ecran. On peut trouver des 
generateurs de nombres aleatoires plus performants 
dans les revues consocrees a I'Apple [CALL APPLE, 
POM'S, etc), mais pour le probleme present, la fonc- 
tion RND de I'Applesoft pourra toutefois convenir. 

En APPLESOFT, I'oppel d'un nombre aleotoire se fait 
par instruction Y = RND(X) r oil I'orgument X peut 
prendre les voleurs -1, ou 1. Y sera un nombre reel 
compris entre et 1 . Done pour obtenir un entier com- 
pris entre et N, il faudra utiliser la fonction 
Y = INT(N * RND(X)), Si X est positif , un nombre diffe- 
rent est genere a chaque appel, si X =0 on retrouve le 
dernier nombre genere, si X est negatif r le nombre 



correspondent a X (stocke dans une table en 
memoire) est fourni, 

Le sous-programme RND reside en ROM 6 I'adresse 
$EFAE. L'argument X doit se trouver dans fe FAC 
(occumulateur flottont) avant I'appel de RND, En 
$EFAE se trouve un appel a $EFB2 qui teste le signs de 
l'argument X. Nous simplifierons le processus en 
chargeant 1 dans A avant de sauter en $EFB1, court- 
cicuitant ainsi le test du signe. Apres execution de 
RND, un nombre aleatoire compris entre et 1 se 
trouve dans le FAC. Pour multiplier ce nombre par 279 
(pour les abscisses) ou 191 (pour les ordonnees}, on 
range d'abord FAC dans le deuxieme registre flottont 
ARG par un appel 6 MOVAF ($EB63). Puis la valeur 
279 (ou 191) est mise dans le FAC : octet bout dans A, 
octet bos dans Y et appel de GIVAYF ($E2F2) qui trans- 
forme un entier dans (Y,A) en flottont dans FAC. 
FMULTT ($E982) effectue la multiplication de FAC par 
ARG. FAC est enfin converti en entier sur 2 octets 
(LINNUM et LINNUM+1) par GETADR ($E752). Enfin 
on transfere le contenu de LINNUM dans XCOORH 
($06) et XCOORL ($07). 

Le trace se fera simplement par les deux routines 
suivantes : 

• HPLOT : pour tracer un point aux coordonnees x,y 
il suffit de mettre I'octet bas de x dans X, I'octet 
haut dans Y et I'ordonnee y dans A, puis appeler 
SF457. 

• HPLOT TO x,y : charger I'octet bas de x dans A, 
I'octet haut de x dans X et I'ordonnee y dans Y et 
enfin appeler $F53A. 

Pour faire bonne mesure, nous avons ajoute un effet 
sonore. Celui-ci peut etre supprime par 3 POKES : 
POKE 788,234: POKE 789,234: POKE 790,234. (wiwpogex) 
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ASSEMBLED 
EDA5M 

ProDOS 



i 

2 
3 
4 

5 
6 

7 



* Trace" aleatoire de lignes en mode H6R 

* R.Jost - 1986 



10 
11 
12 
13 



* adresses en page ze>o 
* 

EQU $86 

EQU S07 

EQU *08 
EQU 



XCOORL 

8 XCOORH 

9 YCOOR 
LINNUM 
* 

# subroutines Applesoft et Moniteur 



'$50 



octet bas de I 'abscissa 
octet haut de 1 'absciss* 
ordonnee 

reg i s tre 16 bits 



Si vous ne 
possedez pas 
d'assembleur, 
contentez-vous de 
taper les codes 
inscrits en rouge, 
comme indique 
page 59. 

5AUVEGARDE : 



BSAVE 

ALEAL1GNES.0, 
A$300,L$73 



14 


STXTPT 


EQU 


$0697 


; re in i t i al i se TXTPTR 


15 


BIMAYF 


EQU 


<$E2F2 


; A , Y -> flattant dans FAC 


16 


SGNFLT 


EQU 


$E301 


; rend -f lot tan t 1'entier dans Y 


17 


CON I NT 


EQU 


-$E6FB 


; FAC -> X 


18 


FMULTT 


EQU 


$E9B2 


; mul t i pi i e ARG par FAC 


19 


GETADR 


EQU 


*E752 


; FAC -> entier dans LINNUM 


29 


fWAF 


EQU 


*EB63 


; FAC -> ARG 


21 


ENRND 


EQU 


*EFB1 


; entree non classique dans RND 


22 


HP LOT 


EQU 


$F457 


; trace un point HGR 


23 


HP LOTTO 


EQU 


$F53A 


; trace une 1 i gne HGR 


24 


BELL 


EQU 


$FBE4 


; Emission d'un "bip - ' 


25 


KBD 


EQU 


*C000 


; sa i s i e au clavier 


26 


KBDSTRB 


EQU 


*C010 


; strobe 


27 


# 








28 




ORG 


$300 





29 
30 



in i t i al i sat i on 











31 








0300: 


A9 


40 




32 


LDA 


£$40 




0302: 


85 


E6 




33 


STA 


*E6 ; 


page graphique 2 


0304; 


A9 


FF 




34 


LDA 


£$FF 




0306: 


85 


E4 




35 


STA 


$E4 ; couleur = blanc 










36 


+ 














37 


* trace du premier point 




8398; 


20 


2B 


03 


38 
39 


JSR 


MUL280 


X=INT<279*RNDa)) 


039B: 


20 


49 


03 


40 


JSR 


MUL192 


Y=INT< 191*RND(1)) 


830E: 


20 


5F 


03 


41 


JSR 


TRACE 


HPLOT X,Y 










42 


* 














43 


* bouc 1 e pr i nc i pa 1 e 












44 








8311 : 


20 


2B 


03 


45 


BOUCLE JSR 


MUL280 


X=INTC279*RND<1)> 


8314: 


28 


E4 


FB 


46 


JSR 


BELL 


un peu de bru it 


0317: 


20 


97 


06 


47 


JSR 


STXTPT 


absolument necessaire: 










48 






essayez done de l'enlever 


031A: 


20 


49 


03 


49 


JSR 


MUL192 


X»INTC1?1*RND<1)> 


831D; 


28 


69 


03 


50 


JSR 


TRACETO 


HPLOT TO X,Y 


0320: 


AD 


00 


C0 


51 


LDA 


KBD 


teste le clavier 


9323: 


2C 


10 


C0 


52 


BIT 


KBDSTRB 


reprise lecture clavier 


0326: 


C9 


88 




53 


CMP 


£$80 


si pas de touche pressee 


0328: 


30 


E7 




54 


BM1 


BOUCLE 


on recommence . . . 


032A: 


60 






55 


RTS 




sinon retour au BASIC. 



50 



GUY-HACHETTE 











56 


















57 


* g6nere 


un 


nombre aieatoi 


ro en trc a 1 1 










58 


* le mul 


t ipl 


ie par 279 












59 


* et sauue FAC dans XCOORL 












60 










032B: 


A9 


01 




61 


Mill ?flft 




to 1 


araument de RND = 1 


032D: 


20 


Bl 


EF 


62 






ON ruMU 


on t r (S P nnn r 1 A c, e j n i i a He PW H 


0330: 


20 


63 


EB 


43 




TCD 


Mm LAC . 

nUvHr ; 


FAP dan= ARfi 


0333: 


A0 


17 




64 




1 IW 
LU T 




279 Hanc: Y 


0335: 


A9 


01 




45 




LDA 


£$81 ; 


et A. 


0337: 


20 


F2 


E2 


64 




JSR 


GIVAYF ; 


i r dnsTere uans rHL 


033A : 


20 


82 


E9 


67 




JSR 


FMULTT ; 


.nil;.! : - ADO ■ . cap 

mu 1 1 1 p i i e hKu e t r-AC 


033D: 


20 


52 


E7 


68 




JSR 


GETADR ; 


thl y entier oans l innuti 


6340 : 


A5 


50 




69 




LDA 


LINNUM ; 




0342: 


85 


06 




70 




STA 


XCOORL ; 




6344: 


A5 


51 




71 
> * 




LDA 


LINNUM+1 ; 


et 


0344 ■ 


85 


07 








STA 


XCOORH ; 


dans XCOORH 


0348: 


60 






73 




RTS 














74 


* 
















7 B 5 

r w 


* g£nere 


un nombre al^atoi 


re entre et 1 










7 A 

f o 


* 1 e mu 1 1 i p 1 


e par 191 












77 


* et stocke 


e resul tat dans YCOOR 










78 


* 








0349: 


A0 


01 




79 


MUL192 


LDY 


£01 ; 


argument de RND = 1 


034B: 


20 


Bl 


EF 


89 




JSR 


ENRND ; 


appel RND 


034E: 


20 


63 


EB 


81 




JSR 


MCWAF ; 


FAC dans ARG 


0351 : 


A0 


BF 




82 




LDY 


e*BF ; 


191 


0353: 


20 


01 


E3 


83 




JSR 


SGNFLT ; 


dans FAC 


0356: 


20 


82 


E9 


84 




JSR 


FMULTT i 


mul t i pi i e FAC par ARG 


8359: 


20 


FB 


E6 


85 




JSR 


CON INT ; 


FAC -> entier dans X 


035C: 


86 


08 




84 




STX 


YCOOR ; 


sauue dans YCOOR. 


035E : 


60 










RTS 














DO 


+ 
















ft9 
9A 


* trace un point en haute re" sol u t i on 

3t 


035F : 


A5 


88 




7 O 

91 


TRACE 


LDA 


YCOOR ; 


on charge les 


V JO 1 . 


A6 


06 




7 £ 




LDX 


XCOORL j 


reg i stres 


0363: 


A4 


07 




93 




LDY 


XCOORH ; 


auant le trace" 


0345: 


20 


57 


F4 


94 




JSR 


HPLOT ; 


du point. 


0348 : 


60 






9S 




RTS 












94 


k 
















97 


* trace une 1 


igne en haute 


resol ut i on 










98 


* 








0369: 


A5 


06 




99 


TRACETO 


LDA 


XCOORL ; 


on charge les 


036B: 


A6 


07 




108 




LDX 


XCOORH ; 


reg i stres 


036D; 


A4 


08 




101 




LDY 


YCOOR j 


avant le trace" 


036F: 


20 


3A 


F5 


102 




JSR 


HPLOTTO ; 


de la droite. 


0372: 


60 






183 




RTS 







-BELL $FBE4 

-FMULTT $E982 

-HPLOTTO. . ,$F53A 

-MOVAF $EB63 

-STXTPT $0497 

-XC00RI $8004 



-BOUCLE $0311 

-GETADR $E?52 

-KBD .$C000 

-MUL192 $0349 

-TRACE $035F 

-YCOOR $0808 



-CONINT $E6FB 

-GIVAYF $E2F2 

-KBDSTRB. . ,$C910 

-MUL280 $032B 

-TRACETO. . ,$0369 



-ENRND $EFB1 

-HPLOT $F457 

-LINNUM $8859 

-SGNFLT $E391 

-XCOORH $0807 
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UTILITAIRF 




Robert CAZENAVE 



AMORTISSEMENT 



Comment calculer un amortissement lineaire ou degressif qui respecte la 
reglementation fiscale ? Tout simplement en utilisant le programme en Basic 
de notre ami Robert CAZENAVE. 

A vous de jouer... avec le clavier d' abord f puis avec les chiffres ! 



1 

105 

1 10 

115 
120 
125 
139 
135 
140 
145 
150 
155 
160 
165 
170 
175 
136 
185 
190 
195 
200 

205 

210 

215 
226 
225 
238 
235 



REM AMORTISSEMENT VERSION 1/86 

TEXT : HOME s CLEAR : PRINT CHR* <4);"PR£3" 
HR* ( 17) ; 



PRINT 



REM Changement du curseur 
POKE 2043,223 

REM Arrondi avec 2 ch i f -f res apr-es la Mirgule 
DEF FN AR(X) = I NT (108 * X + .5) / 100 
DIM AN< 17) ,VR< 17) 

PRINT TA6< 10>;"CALCUL DES AMORTI SSEMENTS " 
PRINT CHR* (15); CHR* (27) 
FOR K ■ 1 TO 10 1 PRINT "SSSS";: NEXT 
PRINT CHR* (14); CHR* (24) 

VTAB 10: PRINT "1- AMORTISSEMENT LINEAIRE" 
VTAB 12: PRINT 11 2- AMORTISSEMENT DEGRESSIF" 
VTAB 14: PRINT "3- MENU" 
VTAB 28: PRINT "VOTRE CHOIX;";: GET R* 

IF W < > " 1" AND R% < > "2" AND R* < > "3" THEN P 
PINT CHR* <7);: HTAB 1: GOTO 195 

IF R* = " 2" THEN AN* = "AMORTISSEMENT DEGRESS I F" : GOSU 
B 235: GOTO 315 

IF R* = "1" THEN AN* = "AMORTISSEMENT LINEAIRE": GOSUB 
235: GOTO 435 

PRINT CHRS (4) ;"RUN STARTUP" 
REM Saisie des 4 laments de calcul 

HOME : INVERSE : PRINT AN*: NORMAL : VTA 8 4: INPUT u BA 
SE AMORT I SSABLE : " ;B 



003A 

A3F7 
00 3A 

DD45 
00 3A 

003A 
D4E4 
00 3A 
BD5B 
BB91 
2C34 
F36A 
1A30 
D12D 
DB83 
AS14 
F84A 

1098 

BD9D 

F54C 
B4ED 
003A 

003A 

C677 
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246 

245 
?l 5 '3 
255 
2*0 
265 
27Q 
275 
280 



290 
295 

305 

3i e 

315 
328 
325 
330 
335 
340 
345 
350 
355 
360 
365 
370 
375 

380 
385 

3?@ 
395 

400 

40 5 
418 
415 
420 
425 
430 
435 
446 
445 
450 
455 
460 
465 
470 
475 



UT A B 6: INPUT " DUREE (MAXIMUM 15 ANS> : " ;DU: IF DU > 15 
THEN HTAB 1: PRINT CHR* GOTO 240 

TX = FN AR(100 / DU) / 100: REM TAUX LINEAIRE 
I F R* = " 1 " THEN 2S0 
UTAB 8: INPUT M COEFF I C I ENT i " f CO 
TD = CTX * CO) 
UTAB 19 

PRINT " TAUX DE L' AMORT I SSEMENT DEGRESS I F : M jTD 
IF R* = "2" THEN 285 



UTAB 12 
EN JO = 
UTAB 14 
PR > 12 
UTAB 16 



INPUT " .JOUR D'ACQUISITION:" i JO: IF JO = 31 TH 



INPUT "MOIS D'ACQUISITION (1 k 12) : " ; PR : IF 
THEN PRINT CHR* (7) ; 
INPUT "ANN EE 19" ;A 
IF R* = "2" THEN PR ■ 1 3 - PR : 
NJ = (12 - PR) * 30 + 31 - JO 



HTAB 1 ; GOTO 285 
GOTO 31 



RETURN 

D = DU 

DU = DU + 1 

FOR K = 1 TO D 

IF K > 1 THEN 375 

REM Premiere annuity 

AN < 1 > = FN ARC < B * TD) » PR / 12> 
URC1) = FN ARC B - AN C 1 ) ) : GOTO 415 

REM Autres annu i t£s 

IF URCK - 1 > * TD > URCK - 1) / C DU - K> THEN ANCK) = 
URCK - 1 ) * TD: GOTO 385 
AN(K> = URCK - 1.) / (DU - K> 

ANCK) = FN ARC AN < K ) ) : UR < K ) = FN ARCURCK - 1) - ANCK) 
) 



REM Derni&re valeur r^si duel 1 e 

IF K = 10 THEN URCK) = 6 
REM 

T = T + ANCK) : NEXT 
GQSUB 566 

REM Amor t i ssemen t 1 in^aire 
NORMAL 

REM 1 ERE ANNUITE 

IF NJ < > 360 THEN DU = DU + 

D = DU 

FOR K = 1 TO DU 
IF K > 1 THEN 520 



SI IN DE PASSE 1999. LE PROGRAM 
SE PLANT E JOLIMENT. CORRIGER AINSI: 

581 DA = 19:DZ$ = RIGHTS ( STR* 
(A * K - 1>,2>: IF A * It - I 
) 99 THEN DA = 20 
585 PRINT ' 'DA;DZ$j: HTAB 15- 
LEJsl ( STRf ( INT <AN<K)))) : 
PRINT W<K);: HTAfi 30 - LEN 
< STRf < INT (VR<K))»s PRINT 

vroo 



(suite page 54) 



8ECD 
E373 
8DC6 
BE02 
D7C1 
6A83 
7E38 
A2CC 

7B6D 

ASS? 
D778 
E6E7 
9442 
00 3A 
63B1 
F6AD 
13FB 
03D2 
315B 
003A 

00 3A 
8516 
F23B 
00 3A 

00 3A 

7407 
F692 

21 F2 
003A 
00 3A 

00 3A 
D331 

1E27 
E74B 
003A 

00 3A 
3B9D 

7F3D 
F6AD 
AF27 
6853 
003A 
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AMORTISSEMENT (suite et fin) 


486 


; 


003A 


485 


REM Premiere annuity 




490 




903A 


495 


AN<1) = FN ARC < B * TX) * NJ / 360 > 


5556 


560 


VR<1) = FN ARC B - AN CI)): GOTO 535 


D03E 


595 


: 


003A 


510 


REM Autres annu i t£s 




515 




903A 


520 


AN(K> - FN ARC B * TX):MR<K) = FN ARCYRCK - i> - ANCK 






)) 


7D7F 


525 


REM Demi irs annuity 




527 


5 


003A 


530 


IF K = DU THEN ANCK) = FN ARCVRCK - 1 > > :','R( K > = 9 


1D82 


535 


NEXT : GOSUB 560; END 


98C1 


540 


: 


003A 


545 




903A 


558 


REM Aff i chage 




555 


; 


9 3A 


560 


HOME s INVERSE : PRINT AN*;: NORMAL : PRINT 


1AIC 


565 


PRINT "BASE:";B;: HTAB 15: PRINT "T. LIN . : " ; TX ; : HTAB 






28: PRINT "T. DEG: " ;TD 


DB99 


570 


UTAB 4: HTAB 10: PRINT "ANNUITE" ; : HTAB 23: PRINT " UAL 






. RESID." 


E9D1 


575 


FOR K = 1 TO D 


03D2 


580 


UTAB 5 + K 


A2EA 


585 


PRINT ■ 19" }A ■ ♦ K - l;s HTAB 15 - LEN C STR* C INT £A 
NCK))>>: PRINT ANCK);: HTAB 39 - LEN C STR* < INT CUR 






<K>)>)8 PRINT VR<K) 


7962 


590 


NEXT 


9582 


595 


POP 


43A1 


680 




3A 


605 


REM Caractere sour i s 




610 




003A 


615 


PRINT CHR* (15); CHR* (27) 


2C34 


620 


FOR K = 5 TO 20: UTAB K: HTAB 7: PRINT " Z " ; : HTAB 26: 






PRINT "Z" HTAB 38: PRINT "2": NEXT 


E277 


625 


PRINT CHR* <14); CHR* <24) 


IA39 


630 


MTAB 22: PRINT "APPUYER SUR UNE TOUCHE" ; : GET R* : RUN 


1FFD 



Une Edition de TREMPLIN MICRO indis- 
pensable a tous les programmeurs Apple- 
soft d£sirant tirer profit des nombreuses res- 
sources d'un systeme qui a maintenant fait 
ses preuves : ProDOS. Prix ttc : 120 f 



* par Marcel COTTINi (Bulletin de commande page 75) 
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INITIATION 



DOS 



ProDOS 



Francois GALLET 




LA SOURIS ET 
L'ASSEMBLEUR 



deuxieme partie : initialisation 

Pour ceux d'enire vous que la premiere partie a inte- 
resses (et qui ant bien revise levr Assembleur), je n'ai 
qu'une chose a vous dire : "Tous a vos claviers i". 

Voyons en premier lieu les etopes : 

• Verification de \a presence de la carte Souris 

• Mise en place du vecleur d'interruption 

• Valeurs par defauf et synchronisation (INITMOUSE) 

• Mise en service de lo Souris et determination du 
Mode (SETMOUSE). 

Le programme se trouvant dans les pages suivantes 
est executable et se lance par CALL 24576 d portir 
du Basic ou $6000G sous Monitegr, mais ne donnera 
rien de significatif a lecran pour le moment, car il 
faudra attendre I'ajout des modules decrits dans les 
articles suivants. L'appel a la routine de traitement 
(INTERUP) a pourtant bien lieu 60 fois par seconde 
(verifiez-le en faisant un CALL - 198 ou $FF3AG et 
vous entendrez un bip particulierement ralenii, 
preuve que le 65G2 est occupe a autre chose), 
Malgre lo debauche de commentaires, un point par- 
ticulier a pu vous paraTtre obscur. IL s'agit de cette 
histoire d'offset dans CALLCARD (offset ? Ke sek 
qa ?). Un offset peut se resumer a un ecart ou une 
difference. En effet, il faut savoir que les micropro- 
grammes Souris ne sont pas appeles directement 
par leur adresse absolue. On utilise pour ce faire 
une table, implantee 6 partir de $Cnl2 ("n" etant le 
numero du connecteur ou se trouve la carte Souris), 
dont choque adresse contient un octet repr^sentanf 
I'octet de poids faible de I'adresse reelle, I'octet de 



poids fort etant pour sa part implicite car etant tou- 
jour egal a $Cn (SC4 si slot n°4), 

Voici la table en question : 



$Cnl2 
$Cnl3 
SCn 4 
SCnl5 
SCnl6 
SCn 17 
SCn IS 
SCn 19 



Contient I'octet de poids iaible de I'adresse de debut de SETMOUSE 

SERVEMOUSE 
READM0U5E 
CLEARMOUSE 
POSMOUSE 
CLAMPMOUSE 
HOMEMOUSE 



Que fait done callcard t 



Cette routine est chargee d'aller recuperer I'octet 
de poids faible de I'adresse reelle (cette operation 
s'effectue a la ligne 47), et apres avoir vectorise 
TOCARD (lignes 50 et 51 ), de passer a lexecution de 
la routine concernee (ligne 53). 

Explication de la ligne 47 : 

Le contenu de TMP n'est pas modifie dans le cours du 
programme et reste done a $00. On ajoute au contenu 
de TMP le registre Y contenant le code du mkropro- 
gramme a executer, pour obtenir I'offset de position 
dans la table ci-dessus. L'accumuloteur est alors 
charge avec le contenu de I'adresse obtenue. 

Exempt* ovec INITMOUSE : 



(TMP) + (Y) = $00 + $19 = $19 
La retenue eventuelle (si le resulrat est superieur 6 
255) est ajoutee au contenu de la memoire suivante 
(adressage indexe indirect) : (suite page 56} 
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(MP + 1) + Carry = $Cn + = $Cn (dans Jecas present) 
enfin ; ($Cnl9) = $1C (V^rifiez-lc sous Moniteur) 
d'ou I'adresse reefle de debut d'JNITMOUSE : $CnlC ($C41C si 
slot n°4). 

£t voilo, c'esf termine pour oujourd'hui (pas trap mal au 
crcne ?). La prochaine fois nous verrons : 



• Le traitement de Interruption. 

• L'etablissement des timites d'excursion de la Souris. 

AmUSeZ-VOUS bien, . , Francois GALLET 

NOTA : Si vous ecrivez directement sous Moniteur, sauvez ce 
module par : BSAVE SOURIS.C,A$6000,L236 




1 

2 
3 
4 
5 

6 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
1? 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



* * 

* Programmat ion de la Souris I Deux i erne partie * 

* * 

ft 
* 

BELL 

CH 
CLS 
CV 
JNIT 
RDKEY 
SERVE 
SET 

STROUT 
IMP 

VECT1NT 
VTABZ 
H 



K 
K 
N 
N 



Debut 



EQU 


$FF3A 


;Emet un bip 


EQU 


$24 


i Stock age du HTAB 


EQU 


$FC58 


;Effacement de I'ecran 


EQU 


$25 


;Stockage du VTAB 


EQU 


$19 


; Initialise les valeurs par defaut de la souris 


EQU 


$FD0C 


jAttente de la frappe d'une touche (GET) 


EQU 


$13 


: Dp t PC t P S I 1 A J riQ A r a i i <3P p 1 f intorrunt i nn 


EQU 


$12 


initialise la souris avec le mode adequat 


EQU 


$DB3A 


;Affiche une chaine de caracteres 


EQU 


$06 


;Pointeur temporaire 


EQU 


$3FE 


iVecteur d' i nterrupt ion 


EQU 


$FC24 


;Effectue le VTAB 


ORG 


$6000 




du 


programme 




SEI 




interdit les interruptions 


JSR 


CHECK 


Cherche la carte souris 


LDA 


£<INTERUP 


LB de Tadresse du programme d' i nterrupt ion 


LDX 


£>INTERUP 


HB 


STA 


VECT1NT 


LB du vecteur interruption 


STX 


VECTINT+1 


HB 


LDY 


£1N1T 


Offset de INITMOUSE 


JSR 


CALLCARD 




LDY 


£SET 


Offset de SETMOUSE et. , . 


LDA 


£$09 


...mode de selection des interruptions 






a chaque rafraichissement de I'ecran 


JSR 


CALLCARD 




DS 


24,234 ; Reserve d'octets (NOP) pour la suite 


CLI 


;Retab!it les interruptions 


RTS 


:Retour au basic 



* 



Sous programme i CALLCARD 
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45 


X 








46 


CALLCARD 


PHA 




;Sauve le contexte Cvaleur du Mode si SETMOUSE) 


47 




LDA 


<TMP),Y 


;Recherche de 1 'offset 


48 




LDX 


CN 


:Octet haut de I'adresse de la carte sour is 


49 




LDY 


NO 


; . . .et n* du slot x 16 


50 




STA 


TOCARD+1 


; . . . vector i sd? 


51 




STX 


TOCARD+2 


;pour saut indirect 


52 




PLA 




iRecupere le contexte Cvaleur du Mode si SETMOUSE) 


53 




JSR 


TOCARD 


;Saut indirect a la carte pour 6x6cut ion . . . 


54 




RTS 




;et retour 


55 


* 








56 


* Vectorisat ion 




57 


* 
















58 


* 








59 


CN 


HEX 


00 


;Stockage de 1 'octet de poids fort 


60 


NO 


HEX 


00 


: . , ,et du n* de slot x 16 


61 


TOCARD 


JMP 


$0000 


iQperande modi fie par le programme 


62 


* 








63 


# SOU 3 


programme : recherche du slot 


64 
65 










# 








66 


CHECK 


LDX 


£$07 


: On fcfiStfi 7 ^lnt<? 

lull L^tJL^ 1 OJkJk-O 


67 




LDA 


£$00 


f Fin frtltifflpnrp ] a r(af~horr , ^£t 


68 




STA 


TMP 




69 




LDA 


£$C8 


i On commence oar 


70 




STA 


TMP+1 




71 


L00P1 


DEC 


TMP+1 


:le slot n"7 


72 




DEX 




:Compte les slots 


73 




BPL 


CONT 


.Si pas d'erreur on saute 


74 




LDA 


£<S0URIS 


Sinon on af f iche, , , 


75 




STA 


MESS+1 


...le... 


76 




LDA 


£>SOURIS 


. . .message . . . 


77 




STA 


MESS+3 


d'erreur 


78 




BRA 


ERREUR 




79 


if 








80 


CONT 


LDY 


£$0C 


ler octet de signature 


81 




LDA 


(TMP),Y 


...doit etre la 


82 




CMP 


£$20 


. . .et egal a $20 


83 




BNE 


L0OP1 


Pas la , alors slot suivant 


84 




LDY 


£$FB 


2eme octet de signature 


85 




LDA 


CTMP),Y 


. . .en $CnFB 


86 




CMP 


£$D6 


...egal a $D6 ? 


87 




BNE 


LOOP! 5 


Non . alors slot suivant 


88 




LDA 


TMP+i ; 


Oui , on sauve I'adresse 


89 




STA 


TOCARD+2 


...pour plus tard Csaut indirect) 


90 




STA 


CN 


Utilise par CALLCARD 


91 




ASL 




On decal e 4 £oi s. . . 


92 




ASL 




. -,afin de faire passer... 


93 




ASL 




...les 4 bits de poids faible a la place... 


94 




ASL 




...des 4 bits de poids fort,.. 


95 




STA 


NO ; 


pour obtenir le n* du slot x 16 


96 








ex : $C4 = 10100100 devient 01000000 = $40 ce 


97 








n'est autre que le slot nM multiplie par 16 

(suite page 58} 
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;(4 X 16 = 64 ou $40) 


99 




RTS 


; Retour d'appel 


100 










101 










102 


* Affichage du message d'erreur 


103 










104 


M 








105 


ERREUR 


PLA 


;Enleve t'adresse de retour de I'appel de CHECK 


106 




PLA 

l Lin 






107 










1 DP 
1 u o 




JSR 


CLS 


On efface 1'ecran 


109 




JSR 


BELL 

W Lj Lj 


pt fin £mf*t un i n 1 i oetit bio ' 


110 




LDA 


f$0C 


Ligne du message d'erreur 


1 1 1 




STA 


CV 




112 




JSR 


VTABZ 


Posit ionne le curseur a la ligne indiquee 


113 




LDA 


£$14 


HTAB 


114 




STA 


CH 




115 


KESS 


LDA 


£$FF 


Octet bas de I'adresse du message d'erreur 


116 




LDY 


£$FF 


haut 


117 




JSR 


STROUT 


— > Affichage du message d'erreur 


118 




LDA 


£$0C 


Reposit ionne le 


119 




STA 


CV 


! . . .VTAB 


120 




JSR 


VTABZ 




121 




LDA 


£$3A 


. . .et le 


122 




STA 


CH 


► HTAB 


123 


K 








124 




JSR 


RDKEY 


►Attend un I'appul d'une touche 


125 










126 




JSR 


CLS 


tOn efface I 'ecran . . . 


127 




CLI 




...on retablit les interruptions... 


128 




RTS 




et on s'en retourne au Basic ! 


129 










130 


* 








131 


# Message d'erreur 




132 










133 


* 








134 


SOUR IS 


ASC 


"Pas de carte souris — > Termine !" 


135 




HEX 


00 




136 


M 








137 


INTERUP 


EQU 


* ;La prochaine fois , vous aurez la suite f 


138 




SEI 


:On interdit les interruptions nouvelles 


139 


* 








140 




PHA 




Sauvegarde. . , 


141 




PHX 




. . .du... 


142 




PHY 




contexte 


143 


* 








144 




LDY 


£ SERVE 


Offset de SERVEMOUSE 


145 




JSR 


CALLCARD 




146 




BCC 


CLICK 


J Si Carry = , la Souris est bien la cause de 


147 








1 ' interrupt ion 


148 




JMP 


RET I NT 


. . .sinon , retour 


149 


* 








150 


CLICK 


NOP 


:Provisoi rement ! 
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151 * 

152 RET I NT PLY 

153 PLX 

154 PLA 

155 # 

156 CLI 
15? RTI 
158 * 



:Restaurat ion. . . 
i . . . du . , . 
:contexte 

:Retablit les interruptions, 
tet retour 




Si vous n'etes pas rompu(e) a la pratique de f'assembleur, void les codes de la routine de Fran- 
cois GALLET. Pour les taper, adoptez la marche a suivre habituelle : CALL - 151, suivi de 
RETURN, puis — 6 la suite de I'asterisque — chacune des lignes suivantes (ne pas oublier le 
RETURN, en fin de ligne). Attention ! ne tapez pas les valeurs hexa en couleur. Si vous dispo- 
sez de notre disquette SIGNATURE, elles vous permettront de verifier l exactitude de lo saisie : 
SAUVEGARDE ; BSAVE SOURIS.II.C.A$*0Q(U$EC 



•6608 : 


78 


26 


40 


60 


A9 


D8 


A2 


60 


3D 


FE 


3 


3E 


FF 


3 


A0 


19 


61 9F 


6610: 


20 


34 


60 


A0 


1 2 


A9 


09 


20 


34 


60 


EA 


EA 


EA 


EA 


EA 


EA 


0748 


•6020 : 


Eh 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


EA 


33A0 


•6030 i 


EA 


EA 


58 


60 


48 


ei 


06 


AE 


48 


60 


AC 


49 


60 


3D 


48 


6 


C96E 


■60 40 ; 


SE 


4C 


60 


63 


20 


4A 


69 


60 





00 


4C 





00 


A2 


07 


A9 


386A 


60 5w ; 





85 


06 


A9 




85 


7 


C6 


07 


CA 


16 


0C 


A9 


B5 


8D 


9C 


E5C2 


•6060 : 


6U 


A? 


60 


8D 


9E 


60 


30 


20 


A0 


0C 


Bl 


6 


C9 


20 


D0 


E7 


6197 


.-.0 79 : 


A0 


FB 


El 


06 


C9 


D6 


D0 


DF 


A5 


07 


3D 


4C 


60 


3D 


48 


60 


^3 6A 


■60 80 : 


0A 


0A 


0A 


0A 


3D 


49 


60 


60 


63 


63 


26 


58 


FC 


20 


3A 


FF 


C95B 


6G90 : 


A? 


0C 


85 


25 


20 


24 


FC 


A9 


14 


35 


24 


A9 


FF 


A0 


FF 


20 


46C 


60A0 : 


3A 


DB 


A 9 


0C 


35 


25 


20 


24 


FC 


A9 


3A 


35 


24 


20 


0C 


FD 


BF69 


60 B6 : 


20 


58 


FC 


53 


60 


D0 


El 


F3 


A0 


E4 


E5 


A9 


E3 


El 


F2 


F4 


C F 8 ? 


66 C0 : 


E5 


AO 


F3 


EF 


F5 


F2 


E9 


F3 


A0 


AD 


AD 


AD 


BE 


A0 


D4 


E5 


1AE8 


68 D0 : 


F2 


ED 


E? 


EE 


FB 


A0 


Al 


00 


73 


48 


DA 


5A 


A 6 


13 


20 


34 


B8ED 


68E8 ! 


60 


90 


03 


4C 


E7 


60 


EA 


7A 


FA 


68 


53 


43 










EFE4 



INDISPENSABLES pour utiliser votre Apple : 

• CLI NS D OE I L AU 6502 DE L'APPLE (avec disquette) 

• ROUTINES LM POUR 6502 ET65C02 (avec disquette) 

• NOUVELLES ROUTINES POUR LE65C02 (avec disquette) 

Ces recueils regroupent des programmes en langage machine publies dans Tremplin Micro, mais presen- 
ted aussi des routines originales ou remaniees, faciles a mettre en oeuvre a partir du Basic, et permettant 
d'ameliorer considerablement la duree du traitement. La plupart de ces routines fonctionnent sur le CS. 
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Yvan KOEHIC vous propose : 

• Module relogeur 

• La routine actualisee 
de Richard Thihert 



• 






t 


* 


SDN 


. B COfit , a i ncr , F f r fq 




* 


SIR 


< ,B s1-fr*<}. a Ifreq. F Mreq > 


l 


« 
• 




ASSEMBLEUR MERLIN 


f 
• 


■+S5ADRS = 





;| si table adresses, sinon 




HAS DATA S ■ 


1 


: 1 si table DATA*, »»non 




EXT ERNE ■ 


: 


il |i cormande etterne, s>non« 


PROTEGE - 





;l 5 on protege la routine 


« 


INIROUT = 





ll si on saute dans la rout ne 


t 



9 

10 

11 

'-■ 

13 

14 

19 

1 A 
17 
IB 
If 
20 
21 
22 
23 
2-1 
25 
26 
27 
2B 
29 
30 
• I 
3? 
33 



56 



PUT RELOPRO 



Module Relogeur destmt a placer une routine 
• nrre ProOOS et ses btt***r%. 

La routine pent etre une tommande enterne, 
une simple routine < CALL I ou uft« routine AMPER 

Prendre garde a la position dune table 
oV adresses el ' ou ) d une table de donntes 



e Yvan KOENIG 



•MASADRS - I 

•HAS DAT AS = I 

•EXTERNE = 1 

•PROTEGE - 

*1N1RDLJT = 



le 25-04-BA 



(able adrtfttt, D unsn 
table DATA*, sinon 
corwaode exterre, sinon 
on protege la routine 
on saute dans la routine 



On demande a GETBUFR de nous allouer <A> pagei 
puis le relogeur copie la routine 
dans la zone qui nous est attribute. 
L« relogeur utilise s* propre routine pour 
identifier les instructions »4in de trailer 
correctenent les op#rateur* ip*<ifiqges A5cQ2 
Dn traitera correctement les appels au HLl 
Attention cependant, les table* ML1 deuront 



e tre 
»n 1 1 • 



lac+es en zone DATAs el 
I i sees par le programme 



34 


R OFFSET = 


2 


t*a 


35 


R 2 BEG = 


4 


1*5 


36 


R ZEND ■ 


6 


1*7 


37 


R Al 


»3C 


iD*but du bloc a d«placer 


38 


R_A2 


*3E 


j F i n du blot oour MOVE 


IV 


R A4 ■ 


"2 


iMbut I one dest. pour riOUE 


,1D 


RJMD1R * 


*FD 


f 4F£ 


41 








«2 


• Adresses 


ProDDS 




43 








M 


CI_ENTRY ■ 


SBEOO 




« 


EXTRNCMD = 


CI ENTRY*A 






GETBUFR - 


•BEF3 




■l • 


ML I 


•BF9Q 




4B 


BITMAP 


18F58 




49 








SO 


* Atfresses 


M0N1TEUR 




51 








52 


R_NXTA4 • 


♦FCB4 


jAvance R_A4 puis tombe en NXTA1 


53 


RAGOUT 


fFDED 


;A4f>eh* 1* caraetere <A> 


54 


R_MQVE 


SFE2C 


fD*place <R_A1 L/H — R_A2 L/H> 


39 






f vers R_A4 UH 



SONSIR.S 

<** Richard Thibert 

6n C ° mmandes extern* P ro DOS 



57 « 

58 ORG *4080 

5<? t 

60 

Al # 

62 

A3 LOA £LA5T-PROGRAN/»100*1 

64 JSR GET8UFR ;Libert <A)pages et rruuhl aue^ 

A3 ipartle haute adresse dan* <A> 

AA BCC PAGEFND 

A7 LDY f CANTENO-CANTRELO- 1 

A8 ttoop LOA CANTREL0,Y 

A 9 JSR R_C0LTT 

70 DFf 

71 BPL !loop 

72 JMP CI_ENTRY 
73 

74 ■*>«■* « .«.» .«»*a«*a»aa##a»»«#»»«»«»#»a»aa#a«#*«**ea* 

75 CANTRELO HEX 3D, 07 

74 REV ML N'Y A PAS DE PLACE* 

77 CANT END 

78 ••••■*eeataaat*M«f«#»a*»*»aei»aae«i#e«*»i*#te«#eaa*a»«** 

7? 

30 qptable dfb 70 0000 1 00 ,7000 1 1 i ,700000100 ,7.00 1 10 i 
dfb 700000101 .7.00010100,7.00001000,7.00101010 

7*. 1 1 10 .7.000 1 010 1 ,700000100 ,700 1 01 1 q 
700OI01D1 .7.00010101 ,-xooooiooo .V.OOI01010 
7.00 000 100,7.00010101 ,700000100 .7.00 10 10 10 
7.00010101.7.00010100,7.00001000,7.00101000 
700000 1 00. 7.000 L010I ,7,00000100 ,7,00 1 010 1 
700010101,^00010101 ,700001000 ,7,00101010 
700010101,7,00010101 ,7,00000000 .700101010 
70001 01 01 ,7,00010101 ,70000 1 000 ,7.00 1 D10 1 
7000 IS IU] ,7.00010101 ,7000001 00 ,700101010 

700000101 ,7.00010101 ,700001000 ,700101010 
700000101 ,7,00010101 ,700000100 ,70010101 
7000 10 1 01 ,7000101 00,700001000 ,70010 I 000 
700000101 ,700010101 ,7.00000100,700101010 
7000 1 I 1 ,7.00010 I 00 ,70000 1 000 ,700 10 I D0Q 



31 

32 
B3 
M 

B3 
9 A 
3" 
95 

n 

92 

g | 
94 
93 



DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DF0 
DFB 
DFB 

DFB 
DFB 
DFB 
DFB 
DFB 



"7 

9B 

99 

100 

101 

102 

103 

104 

105 

IDA 

107 

106 



PAGEFND STA R A4+ I 



ipartie tiaute adr . zone aMouee 



DO EXT ERNE 

L0X EXTRNCMD+2 |ft*uwt I'ancienfie adrettt pour 

5TX NEXTCMD*2 ;chamer les conenandes 

STA EXTRNCMD+2 f»tl «n place 

LDX ExTRNCND* I fla nouvtlle adretf* 

STX NEXTCMD* 1 



60 



GUY-HACHETTE 



10? 


•NEXTCHD 


JM= 


10000 ;On 


dot Irouvrr ee label 


no 


* 


#t cett* instruction dans tout* 


1 1 1 




cotmande eaterne 


pour assurer 


M2 


« 


Is chain age des 


diuerses comnandes 


113 




PRC.TYPC dans Tren>pl>n MICRO n'9 


114 


• 








115 




ELSE 






116 










117 




STA 


R I MO I R+ J 


sOctet haul adresse r ou 1 1 r>e 


118 




LOO 


to 


; relogM 


11? 




STA 


R_INDIR 


; octet bas drto 


120 




OS 


*,*EA 


jpour f(MCP 1* «Uit« 


121 










122 




FIN 






123 
12* 


• ■ 










125 




LDA 


£< PROGRAM 


.Debut df zone a d#plac#r 


126 




STA 


R_Al 




127 




STA 


RZBEG 




I2B 




LDA 


£; PROGRAM 




129 




STA 


R_Al ♦ I 




1 30 




STA 






131 










132 




LOA 


£<ENDPROG- 


1 iFln If la partie programs* 


133 




STA 


R_A2 


134 




LDA 


f 1 END PROG - 




1 35 




SlA 


R_A2+1 




136 










137 




LDA 


£<EN0ALL-1 




136 




STA 


R_ZEND 




139 




LDA 


£>ENDALL-i 




140 




STA 


R_ZEND>1 




Ml 










142 




CLD 




;«u cas Dii 


143 










144 




LDA 


to 


;Place PROGRAM sur d#bu1 de page 


! 45 




STA 


!- ...1 




144 










147 










I4S 




DO 


EXTERME 




14* 




STA 


EXTRNCMC* 1 




150 




ELSE 






131 




DS 


.a&u 




152 




FIN 






153 


















154 










155 




SEC 






156 




SBC 


R.IBEG 


iCalculc offset 


137 




STA 


R_0FFSE1 


; que 1 on ajoutera 


158 




LDA 


R A4* I 


i au« adresse s 


15* 




SBC 




■ deuant *tr* relaqGes 


160 




STA 


P OFFSET » 1 




161 










162 


:f el dc t 


LDY 


£0 




163 




LDA 


<R_A1 >,i 


; Opcode 


t«4 




C'HF 


£420 


iest-ce JSR f 


165 




BNE 


inotMLI 




166 




1NY 






16? 




LDA 


• r_ai ) , r 


; lob'te 


168 




BNE 


;notMLI 


ice n est pas 'ML I 


169 




IW 






170 




LDA 


<R_A1 f.Y 




171 




CMP 


1 >ML ] 




172 




ENE 


:ncitt'LI 




173 










174 




LDY 


ED 




175 






C3-I 


: Pcur 


176 




JSR 


CQPtE 


; cop.e.- JSR ML 1 


177 




LOA 


13-1 


:Tromp» It «ui t* pour 


178 




BNE 


: opdone 


;re!oci*r 1 adresse table 


17* 










180 








;Se somen it qu apre* JSR MLt 


1B1 








i on doi t trouuff : 


192 








i DFB code S executer 


183 








; DA adresse table narametre* 


184 


snotMll 


LDY 


io 




185 




LDA 


<R_A1 > t Y 


: Opcode 


196 




PHA 






187 




AND 


tv.oooooon 


;A« 1 2 3 | Offset 


18B 




TAY 




l dans 1 octet cfe la table 


18* 




PLA 






1*0 




LSR 




I A=QPC2 


191 




LSR 




: A=0PC/4 


|*2 




TAX 






1*3 




LDA 


OPTABLE , X 


iconlient longueur de 4 opcodes 


1*4 


: opl up 


DEY 






1*5 




BM 1 


: opdone 


;On a pousse a droite les 2 brts 



1*6 




LSR 




;represer>tan t la longueur 


197 




LSR 




5d« 1 - instruct i on 


1*8 




SHE 


: op 1 up 


:Si A=0, ne branch* pas 


|9* 








jOperandf d# longueur nulle 


20Q 








: Attention, 1 est i nd* term ne 


201 


s op done 


AND 


£".'.0000001 1 


! I sole la 1 cmcjueur 


202 




TAX 




; X- 2 1 


203 




LDV 


£0 


jLeve I i nd£ termmat iflfl 


204 




CPX 


£3-1 




203 




BCC 


troov i t 1 


10A ne Change pas 1 es 


206 








j instruct rons de l'Z octets 


207 




im 




I -> Y"*| 


208 




JSR 


chamgit ? 




20* 




DEY 




; -i y-o 


210 


imou i t 1 






}lCl X=Longueur operande <0,],2> 


211 




JSR 


COP IE 


;Cop if 1 ' instruct ion 


212 




BCC 


: r * 1 oc 1 


;SI <R_A1XCR_A2> 


213 










214 










215 




DO 


HASADRS 




216 




BCC 


riTiouS' 5 


;Ne branche pas si table Actresses 


217 




ELSE 






21 FJ 




BCS 




sBranche t> pas de table Adresse': 



21* 

220 

221 

222 

223 

224 

225 

226 

22? 

22B 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

23* 

240 

241 

242 

243 

244 

245 

246 

247 

248 

24* 

250 

251 

252 

253 

254 

255 

236 

25^ 

258 

25* 

260 

261 

262 

263 

264 

265 

266 

267 

268 

26* 

270 

271 

272 

273 

274 

275 

276 

277 

27B 



FIN 



LDA £<ENDADRS-1 jFm df taol* d'adresses 





STA 


R_A2 








LOA 


OENDADRS-1 








STA 


R_A2+1 






sreloc2 






:lci Y-0 






JSR 


CHAMBIT? 






imou i t2 


L0X 


£2-1 


\2 octets par adresse 






JSR 


COP1E 








BCC 


ireloc2 


\%i 1 'on n't pas i Ini la 


table 




DO 


HASDATAS 








BCC 


t>X 1 1 


;N* branch* pas s> table 


DATAs 




ELSE 








BCS 


! *K 1 t 


iSrancht si pas de table 


DATAs 


* 


FIN 







LDA 
STA 
LDA 
STA 

JSR 

■•xit JSR 



R_ZEND 
R_A2 
R_ZEND+ I 
R^A2«I 

R_M0VE 
PROTECT 



(Fm df table de utlmrs 



DO 
NOP 
ELSE 
RTS 

nu 



IMIROUT 



JMP (R_]NDIR> iEx#cutt si IN I ROUT ■ 1 



C'est re log* 



1 .V, 


R_?END 


CMP 


■: s. a I i , i 


INY 




LDA 


R ZEND*1 


SBC 


<R_AI).Y 


BCC 


send 


OEY 




LDA 


R ZBEG 


:mp 


<R_A1 1 t Y 


]NY 




LDA 


R ZBEGH 



;Pas de changenent 
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279 
260 
281 
262 
2B3 
28* 
28S 
234 
28? 

;ea 

289 
2*0 
291 
2*2 
293 
294 
295 
2*6 
297 
299 
299 
300 
301 
30 2 
303 
304 
30 5 
30 6 
307 
308 
309 
310 
3JI 
312 
313 
314 
313 
316 
31? 
318 
31? 
320 
321 
322 
323 
324 
325 
324 
327 
328 
329 
330 
331 
332 
333 
334 
335 
33* 
337 
33B 
33? 
340 
34! 
342 
343 
344 
345 
Zl 

1 
2 
3 
4 
9 
6 
7 

e 

9 

10 

1 1 

12 

1 3 

14 

15 

Id 

17 

ia 

19 



SBC 
BCS 

OEfY 
LDA 
ADC 
STA 
I MY 
LDA 
ADC 
STA 

DEY 
PT5 



<R_AJ >,Y 
: end 



;Pas de changement 

iiei c=o 



<R_A1 i ,i 
R_OFFSET 
<H_/»1 ) t Y 

<R_A1 ) t Y 
R_0FF5E7'I 
<R_A1 > ,Y 



;Aju4te 

i I 'adresse 



■ tiaitiiiitiiiiaii ,,, M ,« lfl) „ t , t , < „ i ,, l „ M ,„, 



COP3E 



LDA 
STA 
JSR 
BEX 
BPL 
UTS 



<R_A1),Y 
<R_A4) ,Y 
R_NXTA4 

COPlt 



j Cop I # X* I oc tets 
;a leur dut i ni t i or> 



PROTECT DO 
WOP 
ELSE 
RTS 
FIN 



LDA 
CLC 
ADC 
TAX 
CLC 
ADC 
STA 
TXA 
PHA 
LSR 
LSR 
LSR 
TAY 
TXA 
AMD 
TAX 
LDA 
SEC 
RDR 
DEX 
BPL 



PROTEGE 



R ZBEG»1 



R OFFSET 



;On pro tiger a 

;Dn ne protegera pas 



[<Htut> plus basse page utilise* 



i I OOP 



£LAST-PROGRAM/HQ0*l jNombre de pages 
R_A4*| }(Haut> page suivant la routine 



STA 
PLA 
TAX 
INX 
CPX 
BCC 
RTS 



to 



!L 

BITMAP t Y 
6 1 TiiAP , r 



R_A4« 1 
1 1 oop 



ERR *-l/*6200 
DS *62O0-» 



;R*mp 1 i «»age 



PRM3RAH 



PUT SONS I R 



{Control er debut de page 



•ORG $4200 ipour mite tu point 

•tltirilttitttt +t* t 
• 

• SONStR.S 

I Routines de R. TH1BERT 

• parue* dint TPMiplin MICRO 5 

• r e e *_ i en comtiandet 
» externes PRQDQS 

• Yuan KOEN1G 14/02/97 

• »»iiitiiiii(iiiiiii] laxiin • tot 



CONT 

5TFREQ 

1NCR 

LFREO 

r " EG 1 

HFREO 



*3C 

CONT 

♦ 3D 

INCR 

*3E 

FREO 



20 


KMD 


— 


*3F 




21 


P 




KMD 




22 










23 


CHRGOT 




• 87 




24 










23 


lllfltliliiilltttl<lflliMIII1tt*tl*ttilttltli«*illll ••««»•« 


26 










27 


COSENTRY 


JMP 


PARSE 


; Quel que s instructions 


2B 


Nt* 1 LMD 






; pour ceu« qui souhaiteM 


29 


DOSEX] T 


JMP 




; integrer cette camnandi 


30 


HTlrt/< 1 1 


JMP 


r 1 . n r D T C 

bllKfc_K 1 b 


f a rrouiu 


51 










32 


AMPENTRY 


BNE 


AMPEXIT 


; Auec ProCMO '4' 


33 




LDY 


ED 


5 ichi la 1 :>f 


34 


i 1 


LDA 


CMDNhML . 


; des cwsndts 


35 




JSR 


C0UT 


; itii se s en pi ace 


36 




INY 




; auec leur tyntaxe 


37 




CPY 


CAMP END* 1 - 


CMDNANE 


38 




BCC 


:1 




39 




JSR 


CHRBOT 




40 




8EQ 


AMPEXIT 




41 










42 


3D BYTE 


NOP 




;Opcod* 1 octet pour mon relogeur 


43 










44 


PARSE 


LDY 


£ < CMCMAME - 


; 


43 




LDA 


IN* 2 




46 




AND 


f*DF 


( Nin->MAJ 


47 




EOR 


E'N" 




48 




STA 


KMD 


f *00=SON, *1C=SIR 


4? 




BEQ 


11 


; Branche »i SON 


50 




LDY 


KCMDNAME2 




51 


ll 


STY 


:3+l 




52 




LDX 


ECMDkND-CMDNAMi-1 


53 




STX 


XL EN 




54 




INX 






55 


iS 


UM 


1N-1 ,X 




56 




AND 


EfDF 


j min->MAJ 


57 


is 


eor 


CMDNAME-l.X ; pointe SON du SIR 


58 




SEC 






59 




BNE 


DCSEXIT 




40 




0EX 






a 




BNE 


it 




62 




STX 


XCWUM 


: x=o 


63 




LDA 


t'/.OOO 10000 




64 




STA 


P81TS 


3 Force analyse a*% paranietres 


65 




LDA 


EX0100101D 


; Au tor i se B , a , F 


66 




STA 


PB1TS*I 




67 




LDA 


E <TRU£CMD 




68 




STA 


KTRMAODR 




69 




LDA 


HI BIT 




70 


HI 81 T 




•-1 


; Oonne adresse 


71 




STA 


XTRNADDR+ 1 


; d entree t ProDOS 


72 




CLC 






73 




RTS 






74 










75 


• <M4ll««liHtiaiMMIMIMIMMIIIIIIIIMIIMM»M><l><>l 


76 










77 


TRUECMD 


PHP 






78 




SE1 




jlnterdit l#s i nter rup t > ons 


79 




LDX 


E*A0 


; STFRE0 par defaut 


80 




LDA 


F61TS*1 




81 




AND 


EX0 1000000 


lA-t-on tp*c«*i* G (C0NT/STFRE0> 


82 




BEQ 


IB 


;NQN -> yaletir par defaut 


6"S 
_< 




LDX 


VBYTE 




Ad 


(8 


STX 


CONT 














ao 




LDX 


£*50 


jLFREO par dlfaut 






LDA 


FB1TS+1 




OD 

8H 




AND 


E/0 000 1000 


;A-t-on tp*cit)4 1 (INCR/LFHEQ) 


no 




BEQ 


:L 


j HON 


on 




LOX 


VL1NE 




'5 1 


iL 


STX 


INCR 




49 

r £ 










93 




LDX 


E1A0 


(HFREO par dt-faut 


94 




LDA 


FBITS* 1 




?3 




AND 


EX0O0O0OI0 


(A-t-or sped fie F (FREO/HFREGj 


96 




BEQ 


:F 


iNON 


97 




LDX 


UFELO 




98 


:F 


STX 


FREO 




99 










too 




LDA 


KMD 




101 




BNE 


5 1 RENE 




1 02 










103 


SOND1 


LDA 


E0 




104 




STA 


P 


► j 



62 



GUY-HACHETTE 



IQ5 


3l 


LDX 


FREQ 




106 


:2 


LDA 


P 




107 

ice 




CLC 
ADC 


INCR 




IB? 




STA 


P 




110 




TAY 






111 


!3 


DEY 






112 




FNF 


:3 




113 




LDA 


SPK 


;CL1C 


114 




TXA 






115 




TAY 






116 


:4 


DEY 






117 




m 


tA 




i IB 




LDA 


SPK 


;CLIC 


11? 




DEX 






120 




BNt 


_ 
iZ 




121 




DEC 


cm 




122 




BNE 


•A 




123 










124 


EXIT 


STA 


STROBE 




125 




PLP 




irMabl 1 1 f tit interrupt ions- 


126 




CLC 




;pour sortie correct* 


127 




RTS 






128 










12? 










* 








130 










131 


SI RENE 


LDA 


STROBE 


|C1 av i er a zt*ro 


132 




LDX 


STFREQ 




133 


;] 


TXA 






134 


:2 


DEX 






135 




NOP 






136 




ENE 


:2 




137 




TAX 






1 36 




LDA 


SPK 


;CLIC 


13? 




LDA 


KBD 


;A-t~on frapp* une touch? ? 


140 




EMI 


EXIT 


;OUI -> c'est tini 


141 




BCC 


:3 


;Mont#r DU Descendre selon [ 


142 




DEX 




;togt schuss 


143 




CPX 


LFREQ 


jpoE.it lonne C 


144 




JMP 


sj 




145 










146 


:3 


inx 




;rric.n tons 


147 




CPX 


HFREQ 


fpositionnp I 


146 




JMP 


a 





149 
150 
151 
152 
153 
154 
155 
156 
157 
I5B 
159 
160 
161 
162 
163 
164 

165 
166 

167 



*#**##*#**»#***«*»******«**#**«» 

ENDPPOG " * 

ft*ilt*Cft*t **»»«**«*« M** ********* 

ENDADRS = t 

*********** ************************ ****** 

* Dans ProCMD, taper & affiche la liste * 

* de? carmandes actives et leur syntax? * 

* CMDNAME et CMDNAME2 do i vent ttre dans yne meme page 



CMDNAME ASC 
CMDEND ASC 

CMDNAME 2 ASC 

ASC 

AMPEND HEX 



"SON" 
" Du " 

"SIR" 
" .B E . 

6D 



a £, F £' 



t*S9 

LOT 


LAST 


t-l 




1 7rt 


ENDALL = 


i 






* t * * ** ^ ********* t * t i* * *t ******* * 


172 








1 71 


1 ri 






1 /H 








1 / J 








1 7Z 


XLEN = 


*BE52 




1 11 


VTIMIM 


*Bt J J 




1 70 


pniTC _ 

roJ 1 9 - 


ibr t 


' 


17? 


CDTTC — 


»BtD6 


• i ore? 


i □ p 
leO 


MBYTE 


*BE5A 


\ parametre B 


1 01 

1 fa L 


VFELD = 


*BE63 


; param*tre F 


1B2 


MINE 


*BE68 


; paramHre a 


183 








1 ClA 
1 t?H 


XRETURN = 


*BE9E 




IBS 








1 0. 


KBD 


♦COCO 




1B7 


STROBE = 


*CQ1 




IBB 


SPK 


tCD 30 




18* 








190 


(OUT 


♦FDED 




191 


SURE RTS = 


♦FFCB 




22 


********** t 


23 


DO 


DISK 




24 


SAW 


SONS I R 




25 


FIN 






26 


*M«ft«#*«#t«»*«*ft«#M*f ********* 




SONSI R 


. DEMO 



to*,, 

ST Af>T UP 



10 TEXT i HOME : PRINT "Tapez une touche po 
up arr^ter )es sirfcnes" 

20 D* = CHR* C4) 

30 LIST 40 

40 PRINT WSIR" 

50 PRIhfT : PRINT "IND1CATIF" 

60 A = 103:X = 50 it =130: GOSUB 500 

70 PRINT i PRINT 'MUSI DUE' 

80 A = 16:X = 120:Y = ii GOSUB 500 

?0 PRINT ; PRINT "PROMPT" 
100 A = 1:X - 255.-Y = 35: GOSUB 500 
110 PRINT : PRINT "SI RENE" 
120 Y ■ 255: GOSUB 500 
130 PRINT : PRINT "TUUT" 
140 Y = 1: GOSUB 500 
150 PRINT i PRINT "SLURP" 
160 A = 128:X = 6:Y = 254j G0SU8 500 
170 LIST 180 

180 PRINT D*"SIR»B32,F48,a32' 

1?0 PRINT : PRINT "AUX ABRIS M! 1 

200 LIST 210 

210 PRINT WSON" 

220 LIST 230 

230 PRINT DrSIR,B128,a0,F255" 
240 END 

500 PRINT Dt'SCN.B'A'jF'XVY: GET X$: PRIN 
T : RETURN 



MBJWMMMMBWMMM 

TREMPLIN MICRO 



154C 
B3A4 
5C2D 
2D54 
0A7D 



FF80 



E4B8 
2E44 
4244 
0FD9 



2B55 

174F 
E956 
2351 

0180 

D56F 
► 

63 



SONSIR en commondes externes ProDOS 



6080: 

60A0: 
6QB0; 
6QC0: 
oDDC : 
6QEQ: 
60FO: 
6100: 
6310: 
61 28 1 
(53 3D: 
6140: 
6150: 
6160: 
64 70j 



61 AO: 
dl B0 : 



A9 01 
10 F? 
D3 CI 
05 14 
15 14 
15 15 
15 14 
BE BE 
3C 85 
3F A9 
BE 38 
C9 20 
AO 00 
29 03 
F9 29 
C3 61 
*1 A2 
85 3F 
CB A5 
3C BO 



20 F5 
4C 00 
DO AO 
08 2A 

08 28 

09 2A 
OB 26 
05 62 
04 A9 
Fl 85 
E5 04 
DO 17 
A2 02 
A8 68 
03 AA 
90 86 
0! 20 
20 2C 
07 Fl 
OE B8 



BE 90 
BE 8D 
CI AO 
16 15 

04 15 
15 15 

05 15 
8D 08 
62 85 

06 A9 
B5 02 
CB Bl 
20 C3 
4A 4A 
AO 00 
80 3 2 
C3 63 
FE 20 
3C 90 
Bl 3C 



65 AO la 

87 C5 C3 

09 A7 CE 

04 2A 15 

04 2A 15 

04 2A 05 

04 2A 15 

BE AE 07 

3D 35 05 

62 85 07 

A5 43 E5 

3C DO 12 

61 A? 02 

AA BD AC 

EO 02 90 

A9 D7 85 

90 Fa 90 

CE til 40 

1A 88 A5 

65 02 91 



B9 95 
CI CC 
AO CC 
15 08 
15 08 
15 08 
14 08 
BE 8E 
A9 D? 
DB A9 
05 85 
CB Bl 
DO 16 
60 B8 
05 CB 
3E A9 
OB A5 
6C FD 
04 Dl 
3C CB 



60 20 ED FD 88 
00 AO C5 C4 AO 
C9 64 15 04 2A 
2A 04 15 04 2A 
2A 15 15 00 2A 
2A 05 15 04 2A 
28 35 43 AE 08 
04 62 A9 00 85 
B5 3E A? 62 35 
00 85 42 80 07 
03 AO 00 Bl 3C 
3C C9 BF DO OB 
AO 00 81 3C 48 
30 04 4A 4A DO 
20 9C 61 88 20 
62 85 3F 20 9C 
06 85 3E A5 07 
00 A5 06 Di 3C 
3C C8 A5 05 Fl 
Bl 3C 65 03 91 



5568 
5DD3 
D02F 
3247 
0650 
1548 
0578 
39<*B 
94EF 
C207 
E44D 
0E7F 
B6EE 
EB63 
D373 
4DFC 
4CB3 
910E 
F6EC 
5951 



BSAVE SONSIR 



61 CO: 
6100: 
61E0: 
61F0: 
c200: 
6210: 

6230: 
6240 : 
6250: 
6260: 
6270: 
6280: 
6290: 
62A0: 
62B0: 
62C0: 
62D0: 
62E0: 
62F0: 
AS6080 



3C 8B 60 Bl 
05 18 65 02 
8A 29 07 AA 
BF 68 AA E8 
4C IE 62 4C 
2D ED FD C8 
AD 02 02 29 
A2 02 8E 52 
C2 CA DO F2 
BE A9 5E GD 
A2 AO AD 57 
AD 5^ BE 29 
8E 29 02 FO 
85 3F A6 3E 
30 CO 8A A8 
El BD 10 CO 
FC AA AD 30 
BC 62 E8 E4 
C9 02 AO AC 
A3 BD 
,L$272 



3C 91 
AA 18 
A9 00 
E4 43 
9E BE 
CO 1A 
OF 49 
EE E8 
8E 53 
50 BE 
BE 29 
OB C G 
03 AE 
A5 3F 
B8 DI 
28 IB 
CO AO 
3E 4C 
C2 AO 



42 20 
6" 01 
3B 6A 
90 E2 
4C Cfi 
90 F5 
CE 35 
BD FF 
BE A9 
AD 58 
40 FO 
03 AE 
63 BE 
18 65 
FD AD 
60 AD 
00 CO 
BC 62 
A3 AC 



84 FC 

85 43 
CA 10 
60 00 
FF DO 
20 87 
3F FO 
01 29 
10 BD 
62 BD 
03 At 
68 BE 

86 3E 
3D B5 
30 CO 
10 CO 
30 E7 
D3 CF 
AO CO 



CA 10 F6 60 60 A5 
SA 48 4A 4A 4A AB 
FC 19 58 BF 99 58 



FB AO 
00 FD 
02 AO 
OF 5f- 
54 BE 
51 BE 

sa be 

86 3D 
A5 3F 
3F A8 
CA DO 
A6 3C 
90 06 
CE AO 
AO A3 



E9 EA 
DE BC 
07 62 
A9 4A 
IS 60 
86 3C 
A2 AO 
DO 29 
88 00 
E7 C6 
SA CA 
CA E4 
EF F5 
AC AO 



DB o? 
AO D7 
3C 62 
38 DO 
8D 55 
03 78 
A2 50 
AD 57 
A9 00 
FD AD 
3C DO 
tA DO 
3D 4C 
AO D3 
C6 AO 



FCE9 
29D0 
A3Ao 
A8B2 
9DE8 
4842 
082E 
CF8D 
721A 
C75B 
C8DA 
15C3 
12F5 
86B4 
7E67 
I04B 
F<?94 
FDF9 
CFEC 
DC30 



5 

2 



PRO.FP 



Nous avions publie !es codes de 
PRO.FP dans Tremplin Micro n°ll, 
mais pas le source. 

Vous savez que PRO.FP remet en 
place tous les pointeurs et — ce 
qui est nouveau — remet les buf- 
fers dans leur position nomnale. 

Cest la replique, sous ProDOS, de 
la commande FP du DOS 3.3. 

Avec PRO.FP, on evite que des ini- 
tialisations successives de certaines 
routines ne reduisent finalement la 
memoire disponible a zero. 



a******************************* 

* * 

* PRO.FP * 

* * 

* Yvan KOENIG * 

* * 
*#*******#*#****###***#*##***##* 



(suite page 66) 



10 

11 

32 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



TXTTAB 
SOFTEV 
AM PERU 

C1_ENTRY 

DOSCMD 

EXTRNCMD 

OUTVECTO 

OUTVECT1 

0UTUECT3 

INVECTO 

INVECT1 

INUECT3 

XRETURN 

FREEBUFR 

ML I 

BITMAP 

INIT 

HOME 

KEYIN 

COUT 

COUT1 



*6? 

*3F2 

*3F5 

fPEOO 
$BE03 
JBEU6 
SBEIO 
5BE12 
SBEU 
JBE20 
SBE22 
SBE26 
*BE9E 
SBEF8 
SBFOO 
*BF58 
SFB2F 
*FC58 
SFD18 
SFDED 
*FDFO 



co rN. 

CD CD 

CD 

* x 

in cd 

-— «"H 

:> 

CC — 



64 



GUY-HACHETTE 



1 



I 































32 


IDROUTINE = 


*FE1F 














33 


SETNORM 


- 


*FE84 














34 




















35 




ORG 


$300 














36 












suu ; 


20 


F8 


BE 


37 




JSR 


FREEBUFR 


; Libere 1 es pages utilises 




j|) J : 


A9 


9E 




38 




LOA 


£ <X RET URN 


; Supprime les cofnmandes 

externes 




305: 


8D 


07 


BE 


39 




STA 


EXTRNCMD+ 1 






308: 


A9 


BE 




40 




LOA 


£ >XRETL)RN 






3QA: 


8D 


08 


BE 


41 




STA 


EXTRNCMD + 2 






30D: 


A9 


03 




42 




LDA 


£<DOSCMD 






30F: 


80 


F6 


03 


43 




STA 


AMPERU+1 


; Revectorise Ampersand 




312: 


A9 


BE 




44 




LDA 


£>OOSCMD 






314: 


80 


F7 


03 


45 




STA 


AMPERU+2 






317: 


A9 


08 




46 




LDA 


£>*801 


; Retablit d£but normal 




319; 


85 


68 




47 




STA 


TXTTAB+ 1 


; du BASIC 




31B: 


A2 


01 




48 




LDX 


£<*801 






31D: 


86 


67 




49 




STX 


TXTTAB 






3IF: 


Cm 






50 




DEX 








320: 


8E 


00 


08 


51 




STX 


$80 






323: 


8A 






52 




TXA 








324: 


A2 


12 




53 




LDX 


£18 


; Corr i ge la B i tmap 




326: 


9D 


58 


BF 


54 


§L 


STrt 


BITMAP, X 






329: 


CA 






55 




DEX 








32A: 


DO 


FA 




56 




BNE 


§L 






32C: 


A9 


3F 




57 




LDA 


£%3F 






32E: 


80 


6B 


BF 


58 




STA 


B1TMAP+19 






331 : 


A9 


CF 




59 




LDA 


£$CF 






333: 


8D 


58 


BF 


60 




STA 


BITMAP 






336: 


A9 


F0 




61 




LDA 


£<C0UT1 


: corriae les vecteurs I/O 




338: 


8D 


10 


BE 


62 




STA 


OUTUECTO 


; num£ros 0,1 e t 3 




33B: 


A9 


FD 




63 




LDA 


£>C0UT1 






33D: 


8D 


11 


BE 


64 




STA 


OUTUECTO+l 






340 : 


80 


21 


BE 


65 




STA 


1NVECT0+1 






343: 


A9 


IB 




66 




LDA 


£ <KEYIN 






345: 


8D 


20 


BE 


67 




STA 


JNVECTO 






348: 


A9 


00 




68 




LDA 


£0 






34A: 


80 


12 


BE 


69 




STA 


OUTUECT1 






34D: 


3D 


16 


BE 


70 




STA 


0UTVECT3 






350 : 


80 


22 


BE 


71 




STA 


INJECT 1 






353: 


80 


26 


BE 


72 




STA 


1NVECT3 






356: 


A9 


CI 




73 




LUH 


£>*C100 






358: 


80 


13 


BE 


74 




STA 


DUTVECT1+1 






35B: 


80 


23 


BE 


75 




STA 


INVECT1+1 






35E: 


A9 


C3 




76 




LDA 


£>*C300 






360: 


8D 


17 


BE 


77 




STA 


0UTUECT3+ 3 






363 : 


80 


27 


BE 


78 




STA 


1NVECT3+1 






366: 


A9 


95 




79 




LDA 


£21+*80 


} Ctrl U deconnecte 80 cols 




368: 


20 


E0 


FD 


80 




JSR 


COUT 






36B: 


20 


84 


FE 


81 




JSR 


SETNORM 






36E: 


20 


2F 


FB 


82 




JSR 


1NIT 























TREMPLIN MICRO 



65 



371 : 


20 


58 


FC 


83 




JSR 


HOME 




374: 


A? 


00 




84 




LDA 


£<C1 ENTRY 


; Revectorise RESET 


376: 


8D 


F2 


03 


85 




STA 


SOFTEV 




379: 


A9 


BE 




86 




LDA 


£>C1 ENTRY 




37B: 


8D 


F3 


03 


87 




STA 


SOFTEU+1 




37E: 


49 


A5 




88 




EOR 


£*A5 




380: 


8D 


F4 


03 


89 




STA 


SOFTER 2 




383: 


AD 


B3 


FB 


90 




LDA 


■*FBB3 




386: 


30 


OE 




91 




BM1 


FLUSHIRQ 


; un 11+ 


388: 


AO 


CO 


FB 


92 




LDA 


*FBC0 




38B: 


FO 


09 




93 




BEG 


FLUSHIRQ 


! un //c 


38D: 


C9 


EO 




94 




CMP 


£*E0 




38F: 


DO 


05 




95 
96 




BNE 


FLUSHIRQ 


; un //t v i e i 1 1 es Roms 
; Ici C=l 


391 : 


20 


IF 


FE 


97 




JSR 


I DROUTINE 


; identification OFFICIELLE 


394: 


90 


00 




98 




BCC 


EXIT 


; C'est un //gs 


396: 


A2 


01 




99 


FLUSHIRQ 


LDX 


£1 


398 : 


8E 


AD 


03 


10 


§1 


STX 


PRIORITY 


; dSconnecte les interruption 


39B : 


20 


A4 


03 


101 




JSR 


DEALLOC 


39E: 


E8 






102 




I NX 






39F: 
3A1 : 


EO 
90 


05 
F5 




103 
104 




CPX 
BCC 


£4+1 
§L 


Notre ami Yvan KOENIG 


3A3: 


60 






105 
106 


EXIT 


RTS 




repond volontiers oux ques- 
tions des lecfrices et Jecteurs 


3A4: 


78 






107 


DEALLOC 


SEI 




de TREMPLIN MICRO, mais 


3A5: 


20 


00 


BF 


108 




JSR 


ML I 


ceux-ci doivent respecter trois 


3A8: 


41 






109 




DFB 


$41 


regies imperatives : 


3A9: 


AC 


03 




110 




DA 


FARMS 


• Joindre une enveloppe timbree 
a leur adresse. 


3AB: 


60 






111 
112 




RTS 


3AC: 


01 






113 


FARMS 


DF8 


1 


• Ne poser qu'une question par 


3AD : 


01 






114 


PRIORITY 


DFB 


1 


lettre. 

• Nous envoyer un disque si cette 
question concerne une routine. 


-End 


assemb 


ly. 


174 


bytes. Errors; 








PRO-FP BSAUE PRO.FP,AJ300.LJ74 



0300 : 


20 


F8 


BE 


A9 


9E 


BD 


07 


BE 


A9 


BE 


8D 


08 


BE 


A9 


03 


8D 


CF62 


0310: 


F6 


03 


A9 


BE 


8D 


F7 


03 


A? 


08 


85 


68 


A2 


01 


86 


67 


CA 


68DF 


0320: 


8E 


00 


08 


8A 


A2 


12 


9D 


58 


BF 


CA 


DO 


FA 


A9 


3F 


8D 


6B 


5BFC 


0330; 


BF 


A9 


CF 


8D 


58 


BF 


A9 


F0 


8D 


10 


BE 


A9 


FD 


8D 


11 


BE 


11D1 


0340: 


8D 


21 


BE 


A9 


IB 


8D 


20 


BE 


A9 


00 


8D 


12 


BE 


8D 


16 


BE 


5802 


0350: 


8D 


22 


BE 


3D 


26 


BE 


A9 


CI 


8D 


13 


BF 


8D 


23 


BE 


A9 


C3 


1980 


0340: 


8D 


17 


BE 


8D 


27 


BE 


A9 


95 


20 


ED 


FD 


20 


84 


FE 


20 


2F 


8B0D 


0370: 


FB 


20 


58 


FC 


A9 


00 


8D 


F2 


03 


A9 


BE 


8D 


F3 


03 


49 


A5 


E172 


0380: 


8D 


F4 


03 


AD 


B3 


FE 


30 


0E 


AD 


CO 


FB 


FO 


09 


C9 


E0 


DO 


23F7 


0390: 


05 


20 


IF 


FE 


90 


0D 


A2 


01 


3E 


AD 


03 


20 


A4 


03 


E8 


E0 


934F 


03A0: 


05 


90 


F5 


60 


78 


20 


00 


BF 


41 


AC 


03 


60 


01 


01 






0293 



Nous signalons a nos nouveaux lecteurs que chaque disquette TREMPLIN MICRO contient tous les 
programmes parus dans le numero correspondent de la revue (une face DOS 3.3 et une face ProDOS). 



GUY-HACHETTE 



■MHM 



UTILITAIRE 



DOS 



ProDOS 




Jacques FOURNEAU 



FENETRES HGR 



JACQUES FOURNEAU vous propose des fenetres en mode graphique. Etudiez 
son programme source, puis offrez-vous une demonstration avec les quelques 
- lignes ci-apres. Notez que les variables CI et C2 contiendront respectivement 
les limites gauche et droite de la fenetre (0 a 279), tandis que LI et L2 seront reser- 
vees a la ligne du haut et a celle du bas (0 a 191), 



Sous DOS 3,3, 
fixez HIMEM 
□ 38144 (ligne 10) 
et supprimez 
la ligne 20. 

Pour obtenir 
des fen§tres 
en HGR, 

remplacez HGR2 
(ligne 40) 
par HGR. 
La routine 
en langage 
machine se 
chargera du reste. 



SUITE PAGE 68 



PEIi.HCR.BA5 



HOME : PRINT CHR* <21): HIMEM: 38460 

CHR* C4)"BL0AD FEN . HGR" 

38144 

il3,76: POKE 1814,0: POKE 1915,149 



L2 

HPLOT I 



TO 



10 TEXT : 
15 PRINT 
28 HIMEM : 
25 POKE H 
38 HOME 

35 INPUT CI: INPUT C2: INPUT LI: INPUT 
48 HBR2 : HC0L0R= 3: FOR I = TO 27? i 

1,191: NEXT 
45 CALL - 198: GET A*: PRINT 
58 !k CI ,C2,L1 ,L2 
55 GOSUB 85: TEXT : HOME 

60 VTAB 22; PRINT "<E)NC0RE CT) ERMINE (M)ENU DE DIS 

QUETTE " ; ; GOSUB 85 
65 IF A$ = "E" THEN 38 
79 HOME : IF A* = "T" THEN END 
75 IF At < > "M M THEN 40 
8G PRINT CHR* <4) M RUN MENU,D1'* 
85 GET At: PRINT : RETURN 



9CC5 
C0D4 
1CA7 
5CB0 
2F97 
1BA2 

2CF5 
8148 
8C17 
19B1 

28A9 
6792 
368F 
A76D 
8A55 
BC0 2 



ATTEMTIAM I A ' a suite dun Organisation des services 
Ml I Ell I lllll \ redactionnels de TREMPLIN MICRO, il ne 

nous est plus possible de fournir des rensei- 
gnements techniques par telephone. 

Vous pouvez par contre nous ecrire, mais n'oubliez pas de joindre une 
enveloppe timbree pour la reponse. MERCI ! 



TREMPUN MICRO &7 



FEN.HGR 



Assemblage par ProCODE 











i 
i 


* EFFACER PARTI E EC RAN 


n is a put ni ic w 










i 

V 
- - 




ORG 


$9500 












•J 


ADLMEM8 


EQU 


$06 


jntMOIRE ADRESSE POUR LIGNE TEXTE 










4 


ADHMEM8 


EQU 


$07 














ADLMEM3 


EQU 


$08 


;McnUlKt ADRESSE TIERS PAGE 












ADHMEM3 


EQU 


$09 












7 
. 


HPAG 


EQU 


$E6 


jStLtCTEUR PAGE HGR 1 1=$28 2=$40> 


Vous trouverez 


ft 


COUNT 


EQU 


$D7 


jCOnPTEUR LIGNES \9 A I9l> 


fa nste des 


codes 


•7 


XDEB 


EQU 


$EB 


jPUblllUN DANS OCTET GAUCHE <.QA6^ 


de ce 


programme 


1 fl 


XFIN 


EQU 


$EC 


IPUSITION LANS OCTET DROITE 'v8A6> 


page / 1 . 






1 1 


ADL 


EQU 


$ED 


jHUK * L>c I KHVH 1 L URNo rftbb MbK 










1 2 


ADH 


EQU 


*EE 












1 3 


QUOTIENT 


EQU 


$EF 


• PA CC TlC TDAI l f \l 1 DDIID r\TI IT C f n*. 1 / ~> 

i Lnbt U t f KAVH 1 L rUUK L» 1 V I 5 1 UN/ 7 










1 4 


BYT El 


EQU 


*F9 


• PtiCC" PDIID rfiMDADrt T CdKI 

il.M'st rUUK LUrlrMKMJbUN 










15 


CI 


EQU 


$FA 


■Nfl flPTFTRi^l irHP i' fl ii 'iQ'i 
(liU U L- P C 1 LJH ULUl '>U H 37 } 












C2 


EQU 


$FC 


■ T r\|TM riDfllTC 
i 1 l/tn L'KU I 1 t 










1 7 

i r 


LI 


EQU 


$FE 


1 MR U 1 r CM t I K t tf H 1 tJ ) 










1 O 


L2 


EQU 


$FF 


• DAC CDICTDC 

f bfio r cmc 1 Kb 
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9500 


28 


7B 


DD 
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DEBUT 


JSR 


$DD7B 


• CI JAI 1 LAT T n/ 1 1 CQDKIIII C ADDCC A 


9503 


29 


52 


E7 
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JSR 


$E752 


;lK.HNorUHME VAL . 3UR 2 OCT. <Y-A> 


9506 




FA 




IT 




STY 


CI 




9508 




FB 




£.£ 




ST A 


Cl + 1 




950A 




EE 


DE 






■JSR 


$DEBE 


; L UAT I Or>l U I R Q U L E 


950D 


20 


7B 


DD 
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JSR 


$DD7B 




9510 


20 


52 


E7 






JSR 


$E752 




9513 


84 


FC 
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STY 


C2 




9515 


85 


FD 
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STA 


C2+1 




9517 


20 


BE 


DE 


»- / 




JSR 


$DEBE 
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20 


F8 
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86 


FE 
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STX 
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20 


BE 
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JSR 


$DEBE 




9522 


20 


F8 


E6 






JSR 


$E6F8 




9525 


86 


FF 




^4 




STX 


L2 
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9527 


A5 


FA 




JO 


CALCULC1 


LDA 


CI 
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9529! 


EF 




J/ 
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QUOTIENT 


. DAD ~~I DnilD PflHHA TTOr 
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FB 




JO 




LDA 
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952D 


20 


DC 


95 


— 1 ~ 
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DIUIS7 




9530 


■' 


EB 








STA 


XDEB 


JKtsIt KtLU . PUUK PUb.DANS OCTET 


9532 


n J 






41 




LDA 


QUOTIENT 




9534: 85 


FA 




4? 




STA 


CI 




9536: 


FC 




43 


CALCULC2 


LDA 


C2 


;MEME TRA^MIL POUR C2. 


9538: 


EF 




44 




STA 


QUOTIENT 




953A 


A5 


FD 




45 




LDA 


C2+1 




953C 


: 20 


DC 




46 




JSR 


DIVIS7 




953F 


85 


EC 




47 




STA 


XFIN 




9541 


. A5 


EF 




48 




LDA 


QUOTIENT 




9543 




FC 




49 




STA 


C2 












50 


+ 








9545 i A5 






51 


INIT 


LDA 


HPAG 


; CHARGER ADRESSE ($28 OU $40) 
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FF 
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R9 
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954D: 
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SS 
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LUH 
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STA 


COUNT 
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3 1 H 
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9553 
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9555 
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TAX 














61 


* 








9558 
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U ! 
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LDA 


COUNT 




955A 
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63 




CMP 


LI 


;LIGNE DEPART? 


955C 

• 
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6m 




BCC 


SUITE 


;SI NON ON CHANGE COMPTEUR & ADR. 




















955E 


: A4 


EB 




aA 
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L L/ 1 


A L/C 15 
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9568 


! B9 


re 
bC 
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LL'A 


OlTETGm ,Y 


;TABLE DE L ' OCTET DE COM PARA I SON 


9563 


! 85 


CO 




JL o 

oo 




STA 


B f TE1 


;ET MEMORISATION 


9565 


: A4 


FA 




07 




i rv v 

LL'7 


L 1 




956? 


: Bl 


Fn 
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i r\A 

LUH 


i A Til "» v J 
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F 3 
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DVTC i 
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; DONT LA MALEUR EbT MODI FI EE 
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91 


FT) 




79 
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A9 
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C4 
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Lr Y 


C2 
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98 


F7 
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A4 


Ff 
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;0UI t uT'J RECHERCHE 
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B9 
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;DANS LA TABLE L' OCTET DE COMP. 


9579 


85 
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STA 


BYT El 


;QUE L'ON MEMORISE 


957B 


A4 


FT 
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L2 




9570 


Bi 
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25 
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;D0NT LA vALEUR EST MODI FI EE 


9581 : 


91 
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9583. 


E6 
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QJ 


bU I IE 


INC 


COUNT 
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9585: 


A4 
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COUNT 
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C4 


FF 
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Q7 
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Lr Y 


L2 
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9589: 


F0 
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NEXTLINE 
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958B: BB 
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FIN 
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A5 
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7 
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9599: 


69 
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9592: 
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E9 
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99 
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A2 
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98 
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C9 


49 
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F0 
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C0 
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F8 
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* 
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A5 
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ADHMEMS 
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95A5: 85 


EE 
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STA 


ADH 




95A7: A5 


86 




107 




LDA 


ADLMEM8 




95A?! 






108 




CLC 
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ADC 
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95AC 
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STA 


ADLMEM8 




95AE 


85 


ED 
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STA 
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95B6' 


90 
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95B2 


E6 
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95B4 


E6 
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95B6 


4C 
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* 
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69 
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ADC 
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85 


ED 
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STA 


ADL 




95C9 




06 




121 




STA 


ADLMEM8 




95C2; 


85 


08 
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STA 


ADLMEM3 




95C4 


A5 
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123 




LDA 


ADHMEM3 




95C6: 


85 


EE 
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STA 


ADH 




95C8 


85 
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STA 
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95CA ■ 
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90 
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95CD: 
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MASQUE DANS 










131 


* OCTETS 


EXTREMES DE LA 


L1GNE 


95CE; 86 


01 


03 














07 


0F 


IF 
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132 


OCTET GA 


DFB 


$00, $81 ,*| 


33,$07,$0F,$1F,$3F 


?5D5: FE 


FC 


F8 














F0 


E9 


C0 














80 






133 


OCTET DR 


DFB 


$FE,$FC,$F8,$F0 ,$Ee,$C8,$88 
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95DC 


Ml 


08 




135 


DIMIS7 


LDX 


€$08 


jHUIl BITS 


95DE 


06 


EF 




136 


DIM 


ASL 


QUOTIENT 




95E0 


. 2A 
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ROL 
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93E.1 


C9 
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CMP 


£$07 
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04 
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BCC 
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95E5 


E9 


07 
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SBC 


£$07 
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! E6 


EF 
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INC 


QUOTIENT 
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CA 
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DIMSUITE 


DEX 






95EA 
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F2 




143 




BNE 


DIM 




*5EC 








144 




RTS 







Table des symboles ordre alphabetique 



-ADH. ..... .$00EE 

-ADLMEM3. . .$9098 
-CI $ 9 FA 

? -CHARGE $?55E 

-DIVIS7 $95DC 

? -INIT $9545 

-NEXTLINE . .$9580 
-QUOTIENT. .$00 EF 



-ADHMEM3. . .$0009 
-ADLMEM8. . .$9906 

-C2 $09FC 

-COUNT $00D7 

-DIUSUITE. .$95E9 

-LI .$00FE 

-OCTETDR. . .$9505 
-SUITE. $9583 



-ADHMEM8. . .$0007 

-BOUCLE $956B 

? -CALCULC1 . .$9527 

? -DEBUT $9500 

-FIN $95CD 

-L2 $S0FF 

-OCTETGA. . .$95CE 
-XDEB $09EB 



-ADL $00ED 

-BYTE 1 $O0F9 

? -CALCULC2. .$9536 

-DIM $?5DE 

-HPAG $90E6 

-MAIN $9558 

-PLUS $?5B? 

-XFIN $06EC 
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FEN.HGR 



BSAVE FEN.HGR,A$9500,LSED 



(codes) 


9560 : 


28 


7B 


DD 


29 


52 




9516 : 


28 


52 


E7 


84 


FC 




9526 : 


BE 


DE 


20 


F8 


E6 




9530 • 




FR 


AS 


PF 


RS 

O -J 












03 


FT 
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Is r 


R5 
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C L' 


R^ 




Avec la disquette 


9560: 


B9 


CE 


95 


85 


F9 


SIGNATURE de 


9579: 


C4 


FC 


90 


F7 


A4 


TREMPLIN MICRO, 


9588: 


F* 


91 


ED 


Eg 


D7 


recopier une routine 


9598: 


69 


64 


85 


EE 


E8 


en langage machine 


95A8: 


88 


FQ 


16 


A5 


97 


ne pose plus de 


95B6: 


98 


A4 


E6 


07 


E6 


probfeme, grace 6 un 


95C8 : 


85 


06 


35 


08 


A5 


contrdle facile de 


95D6: 


03 


87 


0F 


IF 


3F 


I'exactitude des codes. 


95E8 : 


2A 


C9 


07 


98 


84 



E7 1 


84 


FA 


35 


FB 


20 


BE 


DE 


28 


7B 


0D 


8E83 


85 


FD 


28 


BE 


DE 


29 


F8 


E6 


86 


F E 


26 


65B9 


86 


FF 


A5 


FA 


85 


EF 


A5 


FB 


26 


DC 


95 




FA 


A5 


FC 


85 


EF 


A5 


FD 


20 


DC 


95 


85 


6558 


A5 


E6 


85 


EE 


85 


09 


85 


07 


A9 


MM 


85 


4347 


85 


86 


AA 


A5 


07 


C5 


FE 


90 


25 


A4 


EB 


FA8E 


A4 


FA 


81 


ED 


25 


F9 


91 


ED 


C8 


A9 


06 


FFE3 


EC 


B9 


D5 


95 


85 


F9 


A4 


FC 


Bl 


ED 


25 


C6DB 


A4 


D7 


C4 


FF 


FO 


82 


B8 


48 


A5 


EE 


18 


78FF 


E8 


63 


98 


EF 


A2 


00 


C0 


40 


F6 


1A 


C6 


706B 


85 


EE 


A5 


06 


18 


69 


80 


85 


86 


85 


ED 


584E 


EE 


4C 


58 


95 


A5 


08 


18 


69 


28 


85 


ED 


58F8 


89 


85 


EE 


85 


87 


IS 


90 


8B 


68 


06 


01 


B059 


FE 


FC 


FS 


F8 


EC 


C8 


80 


A2 


08 


86 


EF 


5418 


E9 


87 


E6 


EF 


LM 


D8 


F2 


68 
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Si vous etes neophyte 



Verifiez que le programme Basic en memoire 
a bien ete sauvegarde sur disquette, puis 
tapez : NEW et HOME. 

II vous reste d passer en mode moniteur ce 
qui ne presente pas de difficult. Tapez 
seulement un CALL - 151, suivi de RETURN. 

Vous vous trouvez alors en presence de 
I'asterisque. Commencez a rentrer soigneu- 
sement vos codes. Ainsi, pour FEN.HGR 
(ci-dessus), tapez successivement : 

* 9500 : 20 7B... jusqu'd la fin de fa ligne (ne 
tenez pas compte de la valeur 8E03, destinee 



au contrdle, en utilisant la disquette 
SIGNATURE). Terminez par un RETURN et 
passez d la ligne suivante, d traiter de la 
meme maniere, 

Lorsque vous aurez termine la saisie, vous 
pourrez sauver immediatement votre travail 
en tapant BSAVE FEN.HGR,A$9500,L$ED... et 
RETURN. 

Pour revenir en mode normal, CONTROLE-C 
et RETURN. Ce retour peut preceder la 
sauvegarde sur disquette... ou venir apres. 
C'est sans importance. 



J'ai oublie : ovanf de saisir un programmer quel qui! sort, essayez toujours de lire le 
catalogue de votre disquette. Si cela se revele impossible, c'est que le DOS n'est pas en 
memoire... et tous vos efforts de saisie se reveleraient vains ! nestor. 



Pour commander la disquette 




utilisez le bulletin de la page 75. Offrez-vous aussi nos editions speciales (ROUTINES 
LM POUR 6502, CLINS D'OEIL AU 6502) : elles vous aideront a vous familiariser avec 
le langage machine... celui qui reste evidemment le plus rapide de tous les langages ! 



TREMPLIN MICRO 
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Yvnn KOENIG 

repond a nos lecteurs 

HORLOGE He ou lie et RND 

Questions ; 1° Comment acceder a t'horloge du tic ou du tie ? 

2° Est- ii possible d'omeliorer le RND de I Apple ? 

Elim H. (SIOOO MET!) 

1 II n y a pas d'horloge dans le lie ou He, et vous ne 
risquiez done pas d'en trouver une. 

2° De nombreuses tentatives ont ete faites pour ame- 
liorer le RND de I'APPLE. La meilleure reponse a 
ete publiee dans Colt A.P.P.LE. en Janvier 1983, 
pages 29 a 34. L'adresse de Calf A.P.P.LE. est : 

290 SW 43 rd St, Renton, WA 98055, USA. 

LA COULEUR SUR IMACEWRITER 2 

Question : Existe-tif des logicieis permettant Impression 
couleur sur I'IMAGEWRiTER 2 ? Damion s. (a woo castres) 

Plusieurs logicieis permettent I'impression couleur sur 
IMW2. II me semble que e'est le cos des versions 
recentes de PRINT SHOP. Ce qui est certain, e'est que 
EXTASIE, produit froncais, (cocorko I) permet 
I'impression couleur, tout comme BLAZING PADDLES 
et surlout DAZZLE DRAW. Un article de NIBBLE 
(decembre 1986) testait ces 2 derniers produits. 

• EXTASIE est edite par APPLE France. 

• BLAZING PADDLES par flaudviile, 1001 Medical 
Park Dr., S.E. Grand Rapids, Ml 49506 U.S.A. (torif 
catalogue : $49.95) 

• DAZZLE DRAW par Broderbund Software, 17 Paul 
Dr. Son Rafael, CA 94903 U.S.A. (torif catalogue : 
$59.95). 

11 me semble avoir vu DAZZLE DRAW dans une bouti- 
que SIVEA. 

FAIRE. F1 ET PRODOS 

Question : Interesse par voire revue, j'oi acquis ses premiers 
numeros, et j'oi voulu utiliser h fonte que vous proposez 
page 22 du n c l. fat recopie les divers programmes d'accom- 
pagnement, sans comprendre. A noterque man Apple refuse 
d'oppliquer f'irtstruction D$ = CHR$(13) -f CHR${4), mais le 
plus ennjyeux est que I' instruction CALL 24751 (instruction 
87Q du programme FAIRE. ECRAN) n'est pas executee. On 
s en rend compte par deux PEEKs aux adresses 54 et 55 qui 
auraient du etre char gees de $BB a $60 respectivement. A ce 
moment- fa, la machine me rend la main, et if n'ya plus hen a 
foire. Vous est- if possible de m 'aider ou dois-je faire mon 
deuil des efforts deja accomplis ? 



R 



Autre question : '(at vu f'assembleur ProCODE en vente a fa 
FN AC, mais destine ou processeur 65C02 En existe-t-il une 
version pour le 6502 que je possede ? 

R, S. (92370 CHAVtUE) 

• FAIRE. 1 (la police de caracteres graphiques) et 
FAIRE. LM (groupe de routines qui permet entre 
autres d'utiliser la police pour eorire sur ecran 
graphique) sont des programmes sous DOS 3.3 
ce qui est la cause de vos problemes, A ses 
debuts, Tremplin Micro ne publiait QUE des pro- 
grammes DOS 3.3. Ce n est pas la machine qui 
refuse D$ = CHR$(13) 4- CHR${4), e'est ProDOS. 
Remplacez cette instruction par D$ = CHR$(4) et 
co ira mieux. Mais il faudra aussi intervenir 
dans lo routine HEX. En S60AF essoyez de rem- 
placer la routine initiale par : 
$60AD : A9 BB LDA £SBB 
$60 AF : 8D 30 BE STA SBE30 
$60 B2 : A9 60 LDA £$60 
$60B4 : 8D 31 BE STA $BE31 
$6087 : 60 RTS 

* Comme voos ne dites pas quel est voire ordina- 
teur, je ne peux pas vous faire une reponse pre- 
cise sur ProCODE. Cet assembleur est capable 
de traiter des codes 65C02 mais le programme 
lui-meme ne les utilise pas et peut done fonc- 
tionner sur les lie vieilles ROMS. Si votre 
machine est un H+, pas question d'utiliser 
PROCODE ! 



ATTENTION AU GET f 

Question ; J'ai essaye, sans succes, de mei 'anger deux de vos 
programmes : 

— La memoire de votre Apple (TM n°l page 42) et 

— Copie d'ecran 80 colonnes (TMn°9poge 19). 

J'ai deplace fe programme de copie d'ecran en $6000 et je 
i'appelle par CALL 24576 (ligne 1 10 d. listing). Utilise seul par 
RUN WO, le programme fonctionne tres bien en copie, mats 
utilise apres le programme d'examen de memoire, cela ne va 
plus. II ne me semble pas que les deux programmes utilisent 
des adresses communes. 

Alors ?... Ai-je commis une erreur ou les deux programmes 
sont-ils incompatibles ? Dans ce cos, comment faire une 
copie d'ecran pour "La memoire de votre Apple" ? 

Christian I. (44300 NANTES) 

A mon avis, il ny a pas incompatlbilite entre les 
deux programmes que vous essayei d'accoupler. II 
y a simplement un oubli de votre part. Apres un 
GET, il faut TOUJOURS faire un PRINT pour que le 
systeme d'exploitation puisse reconnoitre les com- 
mondes qui lui sont destinees. Mettez un simple 
PRINT entre le GET H$ et le IF de la ligne 40 et ca 
devraitaller mieux. 
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SON <N°5) ET WAIT 

Michel L (68150 RIBEAUVILLE) a des problemes avec la routine 
SON de Trempfin Micro n°5... et s'interroge a propos de WAIT... 

rjj~j Notre ami R. THIBERT s'est plante dans lo definition 
de HIMEM sous ProDOS. La vaieur mise en place 
par la ligne 10 est doublement incorrecte. 
1° Elle n'est pas en I imite de page alors que PRO- 
DOS exige que HIMEM soit un multiple de 256 ce 
qui n'est pas le cas ici. 

2° fl aurait de toute facon du se placer 4 pages en- 
dessous de la routine, pour laisser de lo place 
pour le buffer I/O de ProDOS. 

Etablissez HIMEM:35840, et je pense que ca ira 
mieux. Ce n'est pas la meilleure solution pour pro- 
teger une routine sous ProDOS mais la seule bonne 
formule supposerait une reecriture complete que je 
pense entreprendre sous peu. 
Voire question concernant WAIT est judicieuse, il 
n'y a AUCUNE difference entre WAIT- 16384, 1 28, 127 
et WAIT-16384,128, 

Je recopie la definition que donnait le manuel de 
reference BASIC APPLESOFT de mon vieux II -f-. 
WAIT 16000,255,0 permet d'inserer dans le pro- 
gramme une pause conditionnelle. Le premier 
argument est I'odresse decimaJe de ('emplacement 
en memoire a tester pour voir si certains bits ont la 
vaieur 1 et certains bits ont la vaieur 0. Chaque bit 
de I'equivalent binaire du second argument deci- 
mal indique si vous etes ou non interesse au bit cor- 
respondent a 1 emplacement en memoire : la 
vaieur 1 signifie que vous etes interesse, la vaieur 
signifie que vous devez ignorer ce bit. Chaque bit 
de I'equivalent binaire du troisieme argument deci- 
mal indique quel etat vous attendez (WAIT) pour le 
bit correspondent 6 (emplacement en memoire : la 
vaieur 1 signifie que le bit doit avoir la vaieur 0, la 
vaieur signifie que le bit doit avoir la vaieur 1 . S'il 
n'y a pas de troisieme argument, on suppose la 
vaieur Q. Si Pun quelconque des bits indiques par 
un bit de vaieur 1 , dans le second argument corres- 
pond a letal indique pour ce bit par le bit corres- 
pondent du troisieme argument, ^instruction WAIT 
est rerminee. 

Dans votre cas, (128 = % 10000000) indique que 
seul le bit 8 est utile et done, 127 = %011 1 11 11 ou 
I est equivalent. 



RUBANS SCRIBE 

Claude G. (13014 MARSEILLE) ne sail ou se procurer des 
rubans pour son imprimante SCRIBE... 

~ R Je me suis renseigne aupres d'APPLE FRANCE, 
chose que votre distributee aurait dur faire. Nor- 
malement vous devez pouvoir vous procurer des 
rubans SCRIBE chez MICRO. VALLEE 83/65 rue de 
Javel 75015 PARIS. 



HORLOGE 

Tres interesse par "Horloge" (TM5 & TMI2), je retrouve le 
mime defaut sur les deux programmes, a savoir un retard de 
9V6" par heure entre mon APPLE et t 'horloge parlanie. 
Neophyte en matiere de langoge machine je vous serais 
reconnoissant de bien vouloir m 'ec hirer a ce sujet. 

Kodotpho Do G. (27000 EVREUX) 

HORLOGE ne respecte pas les normes ProDOS. 
Cependant, en ce qui concerne le probleme de la 
vitesse de I'horloge, le remede est simple. Tout se 
passe bien sur He mais sur lie, le rafrafchissement 
ecran se faisant a une vitesse differente, il faut cor- 
riger un octet au programme, 

Tremplin n°7 avail publie dans le courrier des lec- 
teurs le patch pour What time... il suffisait de faire 
$386: 32 (au lieu de 3B). 

Pour HORLOGE je vous propose une formule plus 
elaboree qui permet au programme de regler lui* 
meme sa vitesse selon la machine, 
$9391 : 2ff C2 95 
$95C2 : A9 3B LDA £$3B 

AE C0 FB LDXSFBCO est-ceunlc? 
DO Q2 BNE$95CB non 
A9 32 LDA f $32 
S95CB: 8D 2D 94 STA S942D regie la vitesse 

4C C5 93 JMP $93C5 teste presence carte souris 

BSAVE HORLOGE,A$9fl0a,E$95D0 (ou L$5D1) 

Avec le programme modifie ou non, ne tenez pas 
compte des indications de I'auteur et faites HIMEM: 
35840. Cela evitera I'ecrasement de la routine de 
saisie date /heure par les buffers de ProDOS. 



AVIS AUX UT1L1 STATE URS 
D IMPRIM ANTES EPSON 

La carte interface parallele EPSON ref. 
8132 (cell© qui porte les roms APL.B ou D 
ou E ou YK) est parfaifement incompatible 
avec APPLEWORKS. 

Technology Resources a pris une initiative 
louable a ce sujet en proposant le rempla- 
cement GRATUIT de ces cartes par un nou- 
veau modele comptabile APPLEWORKS et 
portant la reference 8133. 

Pour obtenir I'echange il faut renvoyer votre 
carte a : 

TECHNOLOGY RESOURCES 
service pieces detachees 
80/86 av. Louis Roche 
EVOLIC C-201 — 92230 GENEVILLIERS 
Tel. : (16-1) 47.92.01.13 



mmm 
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API nEiiJs 



PES NOUVEAUTES POUR VOTRE APPLE 11. lie. lie * 



* APPLE nr,t unc marque deposee d" APPLE COMPUTER, INC 



Logic-tele educatifs pour les 3 a 8 ans, 
faiaant appel pour la plupart a la 
SYNTHESE VOCALE sur materiel standard. 
Craphismes splendides. 



L * ALPHABET DE L ' OURS OSCAR 



Apprentissage de I 'alphabet par un jeune 

enfant a travers 5 applications diffe- 

rentes. SYNTHESE VOCALE : lettres enon- 

cees a voix haute, enfant guide par des 

messages aonores. Necessite deux lec- 

teurs et un joystick. . QC 

... lob r 



2 . L ' ALBUM DE COLOR I AGE 

De norabreux dessins a colorier. Possibi- 
lity pour 1' enfant de sauvegarder ses 
dessins et de les rappeler. Creation 
d' albums sur papier par transfer t sur 
iraprimante ( imagei*ri ter ) . Necessite d'un 
joystick - Livre avec un mini-album et 
dix fentres. p 



3 . L* ALBUM EM CH ANTE 

Logiciel d'eveil pour les tous petits. 
Reconnaissance d'animaux, d'objets, de 
formes, etc ... a travers un album qui 
parle I Coraporte de plus un puzzle, 

... 185 F 



A . OSCAR PUZZLES 

Un logiciel captivant pour 1 'enfant et 
tres simple d'emploi. Deux niveaux de 
difficulte - Planches superbes - Joys- 
tick ou clavier. p. 



HON DK COMMAND E A RETOURNER A : 



API 

12 Chemin du Petit Etang 
86000 POITIERS 

Regiement par cheque bancaire ou C.C.P 
Pas d' envoi contrc remboursoment. 



6 ■ OSCAR LECTURE 1 

Apprentissage de la lecture par un jeune 
enfant. Reconnaissance d* images, de mots 
ecrits a 1'ecran ou enonces a voix 
haute. Large appcl a la syn these vocal e. 

. . . 185 f 



6 . CQWTES DE L'AFRIQUE NOIRE 

Lecture d'un conte a voix haute. Ideal 
pour les tous petits ne sachant pas 
encore lire. Pour les plus grands, 

questions sur le conte, vocabulaire, 
etc ... Necessite de deux lecteure. 

... 65 F 



7 . LE PRIVE 

Une enquete policiere delicate : qui a 
true M. C HA HOT le restaurateur ? Les 
mobiles ne manquaient pas ! - Graphismes 
superbes - Une nouveaute : le bulletin 
liaison de reponse. 



... 185 F 



ROGRAMMATION 



8 . BASIC EXPRESS 



Apprenez rapidement Je langage de votre 
Apple. Une methode simple, accessible a 
tous, enfants et adultes. Manuel, fiches 
de progression, disquettes, 

... c 'it r 



Nom . . 
ADRESSE 



DATE : . . 
SIGNATURE : 
COCHEZ ;■ 1 I 2 I 3 



n^m] Bulletin de commande et d'abonnement 

A retourner 6 : TREMPLIN MICRO — Senille — 861 00 CHATE LLE R AULT 

N °m Prenom 

Adresse complete 

Code postal | | | | | | Viffe 

L£S D,$OUETT£5 FONCTIONNCNT SOUS DOS €7 FroOOS fd condition de pWMir une «, Jl0 n Appte «fe « SYSTEMS D'CXPlQITA TION) 



QUANTITE 


DESIGNATION 


PRIX UNITAIRE 


TOTAL 




Abonnement a 6 numeros (un an) : FRANCE 

6 partlr du n umiro r 


i art ez 






Abonnement a 6 disquettes (un an) ; FRANCE 

a partlr du num*re : 


600 F 






MINIE 

LE BUREAU DE MINIE 

LES SOURCES DU BUREAU 


LogicieU 

de Claude AUBRY 


ISO F 




150 F 
SO F 






DISQUETTE UTILITY-DISK (Marcel COTTINI) 


170 F 






LIVRE : APPLE H PRODOS. GUIDE DU PROGRAMMEUR APPLESOFT 


120 F 






LIVRE : LE 6502 PAS 6 PAS 


120 F 






IIVRE + DISQUETTE : CLINS D CEIL AU 6502 


160 F 






LIVRE + DISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


160 F 






LIVRE + DISQUETTE : NOUVELLES ROUTINES POUR LE 65C02 


160 F 






RELIURE-ECRIN 


40 F 






DISQUETTE-INDEX (N°l 6 6) 


30 F 






DISQUETTE-INDEX (N°7 a 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






DISQUETTE DE TREMPLIN MICRO ; • (lie af lie) 
N°l □ N°4 □ N°7 □ N°10a N°13D 
N°2 □ N°5 □ N°B □ N°11 a N°14 □ 
N°3n N°6a N°9 □ N°l2n 


105 F 






NUMERO DE TREMPLIN MICRC 

N 9 1 □ N fl 2 □ N°3 □ HU □ N c 5 □ 
N s 7 □ m □ N"9 □ U°\Q □ N 6 I1 □ 


> i * 

N°6 □ 


30 F 




N*12 □ N°13 □ N'H □ 


33 F 





Cochez la (ou tesj cas&{%) de vofr* the 



Numero d'abonne ou de client : 



Participation aux frais d envoi (gratuit pour les abonnes) + 10 F 
Envoi on paquet-poste recommande a partir do 400 F 

Total a payer 



Merci do libeller votro regloment a l ordre de TREMPLIN MICRO / Editions JIBENA. 



Mode de reglement cholsi : □ Cheque □ Mandat-lettre U Carte Bleu 




N° de voire Carte Bloue | | | 
Dote d'explration J | | [ 
Montant a debitor p 



I i I I i I 



i I i 



Signature fobltaotoir*) 
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IVotre bibliotheque 
INFORMATIQUE 



• ALGORITHMES ET 
MATHEMATIQUES 
(J.-M. Chauveau et S. Weber) 

Moitriser I'informotique... c'est assure- 
menl le soubait de tout lecteur de 
Tremplin Micro. Mais c'est d'abord 
it re en mesure : 

— desavoirce que Ion veut faire j 

— de sovoir comment transmettre son 
desir a I'ordinateur. 

les auteurs de ce livre preconisent 
d'acceder a I'informotique par le biais 
des mathematiques. Pourquoi pos ? 

D'abord deroute par une opproche un peu 
abrupte des conventions d'ecriture des 
procedures, le lecteur non matheux se 
refrouvera dans son element avec des 
exemples simples, en Basic classique. De 
bons algorithmes de tri et des pages pos- 
sionnantes sur la conception et la realisa- 
tion d'algorithmes en probability et en 
statisfiques. Une information mathemati- 
que type DEUG est conseillee pour lirer le 
meilleur profit de cet ouvrage, mais les 
exemples en Basic peuvent par contre 
etre compris par des programmers 
moyens. 

WtQUiS, 61 bd Soint Germoin 75005 PARIS 




aigorrnines ex 




Patrice Bihar 




Une introduction b 

(Intelligence 

Arfificieile 



• TURBO-PROLOG 
Une introduction a 
('Intelligence Artifice lie 
(P. Bih an) 

TURBO-PROLOG, c'est bien sur un pro 
duit BORLAND INTERNATIONAL. Pius 
de 50000 concepteurs, programmeurs, 
ingenieurs et outres professionnels se 
servent de ce langage pour concocter 
des applications faisant appel d (Intel- 
ligence Arlificielle, ll convienl de noter 
que BORLAND offre maintenant aux 
ulilisateurs de TURBO-PROLOG une 
puissonte boite a outils : TURBO- 
PROLOG TOOLBOX. Plus de 80 outils 
et 40 exemples avec leur code source : 
oh ! les veinords ! A quand I equiva- 
lent sur I'Apple IIGS ? 

Mais revenons au bouquin de Patrice 
Bihon. il est d lire devant un clavier de 
PC. En fait, tous les exemples gagne- 
ront a etre ecrits, puis executes. 
L introduction n'est surement pas indis- 
pensable aux uttlisateurs pratiquant 
parfaitement I'anglais (je ne crois pas 
ovoir vu une version franchise du 
monuel BORLAND), mais elle sera utile 
a tous les aufres. Quont aux 60 petites 



par NESTOR 

applications... a nos claviers et place a 
('imagination ! 

mOUES, 61. bd Saint-Germain. 75005 PARIS 

• C PAR LA PRATIQUE 
(Craig Bolon) 

Cet ouvrage a ete traduiT de l ameri- 
cain par Lionel Eppele. Faut-il feliciter 
I'outeur — Craig Bolon — ou le troduc- 
teur de lo clarte du style ? Toujour* 
esf-it que € PAR LA PRATIQUE est un 
manuei agreable a lire et facile a com- 
prendre. Si vous n'entendez rien a la 
programmation, essayez tout de meme 
de survoler les principoles instructions 
du Basic, mais sachez que ce n'est pas 
indispensable. Vous assimilerez ici, en 
plus de 5O0 pages et en vingt chapitres, 
non seulement les bases de la pro- 
grammation en C, mois comment con- 
cevoir des applications relativement 
importantes. Ce bouquin n'est pas des- 
tine aux utifisateurs de I'Apple IIGS, 
mois gageons que ceux-ci y puiseront, 
Sib aestrent s'initier au langage de 
I'avenir qu est le C r de tres utiles infor- 
mations : bases du langage, types de 
donnees, utilisation des structures de 
tableaux, problemes de recursivite, 
operateurs, calculs en virgule flot- 
tante, bibl'otheques au format Unix, 
etc. C impressionnant, non ? 

SY8SX 6-8. impasse du Cure — 750)8 PARIS 
{552 pages -248FTTC) 
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GUY-HACHETTE 




Chaque mois, 
le meilleur 
de la i 
technique L 
et de la 
pratique 
photo ! 





Chez votre 
marchand de journaux ! 



